(Resolvido) Deletar ultima letra do memo

[DelpheroMn]

Olá pessoal, estive tentando de várias maneiras deletar a ultima letra do memo

mas não tive sucesso.

delete := inttostr(length(Trim(Memo1.Lines.Strings[0])));

Showmessage(delete);

assim eu pego o numero de letras que o memo possui na linha 0

mas como deletar a ultima letra?

[Jhonas]

exemplo:

procedure TForm1.Button1Click(Sender: TObject);
var num : integer; s : string;
begin
   num := length(Trim(Memo1.Lines.Strings[0]));
   Showmessage(inttostr(num));
   s := Memo1.Lines.Strings[0];
   delete(s,num,1);
   Memo1.Lines.Strings[0] := s;
end;

abraço

[DelpheroMn]

Obrigado Jhonas, isso mesmo que eu estava tentando fazer.