como se elimina un carecter de un string...

[nefy]

Haber q tal esta Roman

a:='';
for l:=1 to (Edit1.GetTextLen-1) do
begin
a:=a+Edit1.Text[l];
end;
Edit1.Text:=a;