[poli-smen]

Сообщение от fufic

А вот если нужно последние а не первые буквы, то вместо TrimLeft просто Trim?

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;