Ich würds noch anders machen:
Delphi-Quellcode:
function LeadingTabs(var AData: string): integer;
var
i: integer;
begin
i:=0;
while Pos(#9,AData) <> 0 do
begin
Delete(AData,1,1);
inc(i);
end;
Result:=i;
end;
Liefert die Anzahl Tabs zurück und auch gleich den gefragten String ohne Tabs.