Fertige Lösungen wirst du hier normalerweise nicht bekommen, über die 2 Begriffe findest du recht schnell eine Lösung.
Aber, ich bin heute gut gelaunt, weil ich nachher, seit langem mal wieder, Informatik habe.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var Words: string;
begin
Words := Edit1.Text;
Delete(Words, Length(Words) - 1, 2);
Edit1.Text := Words;
end;