In einem String die ersten 4 Zeichen löschen?

[sniper_w]

Delphi-Quellcode:

uses StrUtils;

function losche4(const str:string):string;
begin
 Result := '';
 if length(str)<5 then Exit;
 SetLength(Result, Length(str)-4);
 Result := RightStr(str,length(str)-4);
end;