Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
0
//Удаляем последний символ из мемо :)
Procedure Button1Click(Sender : TObject);
Begin
// Some GovnoCode...
Memo1.Lines.SelLenght := Length(Memo1.Text) - 1;
Memo1.SelStart;
Memo1.CopyToClipboard;
Memo1.Clear;
Memo1.PasteFromClipboard;
// Some GovnoCode...
End;
end.Вот так, простенько и со вкусом, мы избавляется от последнего символа из Memo1.Text.
Запостил: 
ZLOvar,
(Updated )
facepalm.hs
Begin
// Some GovnoCode...
Memo1.Lines.SelLenght := Length(Memo1.Text) - 1;
Memo1.SelStart;
Memo1.CopyToClipboard;
Memo1.Clear;
Memo1.PasteFromClipboard;
// Some GovnoCode...
End;
бу-га-га. с каких пор ide delphi стала begin, end, procedure, etc вставлять с большой буквы? хорошо, если афтар извращенец, то может он их сам изменяет. еще - какбэ обычно кнопки расположены на форме и зачастую это должно было бы выглядеть примерно так
procedure TForm1.Button1Click(Sender: TObject);
афтар писал это кусок из головы и вообще непонятно зачем.
Поугарать )))))))