c[2..24]还是c[2..1024]?StrLCopy( c+1, PChar(s), 23 ); 或
StrLCopy( c+1, PChar(s), 1023 );