[lmikle]

TrimLeft отрезает все пробелы (и непечатные символы) в начале строки.
Т.е. задача найти первый не пробел и с этого места скопировать.

Код:

function TrimLeft(S : String) : String;
var
  I, Idx : Integer;
begin
  Result := '';
  If S <> '' Then
    Begin
      Idx := 0;
      For I := 1 To Length(S) Do
        If S[i] > #32 Then
          Begin
            Idx := I;
            Break;
          End;
      If Idx > 0 Then Result := Copy(S,Idx,Length(S));
   End;
End;