x kann höchstens 255 sein.
Du kannst es aber dadurch erhöhen, dass du ein Array[0..x] of Char benutzt:
Delphi-Quellcode:
TTest = record
s: array[0..1024] of Char;
i: integer;
end;
var
Test: TTest;
s: string;
begin
s := 'Hallo';
StrLCopy(Test.s, PChar(s), 1024); // s in Test.s kopieren
end;
..
begin
s := PChar(test.s); // und wieder auslesen
end;