Wie lösche ich ein Zeichen im Editfeld?

[trifid]

Hallo,

Delphi-Quellcode:

   var s : String;
   var i : Integer; // i-te Zeichen
begin
   s := Edit1.Text;

   Delete (s, i, Length (s));

   Edit1.Text := s;
end;