[Bargest]

1)

Код:

var flag:boolean;

2) Лучше всего сделать так по событию Edit1Change:

Код:

begin
 if flag then
 begin 
  Edit1.Text:=Edit1.Text[length(Edit1.Text)];
  flag:=false;
 end;
end;

3)

Код:

//после вычислений
flag:=true;