[fufic]

Сообщение от poli-smen

TrimLeft просто убирает из строки пробелы слева.
Trim убирает с обеих сторон.
Последнюю букву можно получить так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
  c: Char;
begin
  s := Trim(Edit1.Text);
  if s <> '' then
  begin
    c := s[Length(s)];
    ShowMessageFmt('Последняя буква "%s"', [c]);
  end else
  begin
    ShowMessage('Текст пустой');
  end;
end;

Понятно, спасобо