[lmikle]

Код:

function ClearStringAll(AStr : String) : String;
var
  I : Integer;
begin
  Result := '';
  For I := 1 To Length(AStr) Do
    If AStr[i] In ['A'..'Z','a'..'z',' '] Then Result := Result + AStr[i];
end;

function ClearStringHead(AStr : String) : String;
var
  I : Integer;
begin
  Result := '';
  For I := 1 To Length(AStr) Do
    If AStr[i] In ['A'..'Z','a'..'z',' '] Then 
      Begin
         Result := Copy(AStr,I,Length(AStr));
         Break;
      End;
end;

ClearStringAll - очищает всю строку
ClearStringHead - очищает только начало строки, все с первой буквы остается.