program ideone;
{$MODE OBJFPC}
uses
Classes;
var
slFoo: TStringList;
strTemp: AnsiString;
begin
slFoo := TStringList.Create();
try
slFoo.Add('12345678901234567890Marcinxl');
strTemp := slFoo[0];
Delete(strTemp, 1, 20);
slFoo[0] := strTemp;
WriteLn('"', slFoo[0], '"');
finally
slFoo.Free();
end;
end.
cHJvZ3JhbSBpZGVvbmU7Cgp7JE1PREUgT0JKRlBDfQoKdXNlcwogIENsYXNzZXM7CnZhcgogIHNsRm9vOiBUU3RyaW5nTGlzdDsKICBzdHJUZW1wOiBBbnNpU3RyaW5nOwpiZWdpbgogIHNsRm9vIDo9IFRTdHJpbmdMaXN0LkNyZWF0ZSgpOwogIHRyeQogICAgc2xGb28uQWRkKCcxMjM0NTY3ODkwMTIzNDU2Nzg5ME1hcmNpbnhsJyk7CgogICAgc3RyVGVtcCA6PSBzbEZvb1swXTsKICAgIERlbGV0ZShzdHJUZW1wLCAxLCAyMCk7CiAgICBzbEZvb1swXSA6PSBzdHJUZW1wOwoKICAgIFdyaXRlTG4oJyInLCBzbEZvb1swXSwgJyInKTsKICBmaW5hbGx5CiAgICBzbEZvby5GcmVlKCk7CiAgZW5kOwplbmQuCg==