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.