Работа с компонентом Edit в Delphi

[X_ALONE_X]

Вопрос.
На форме имеется компонент Edit. Необходимо сделать следующее: Вводим значение в Edit, нажимаем клавишу Enter и в этом же поле отображается результат. Далее снова нажимаем клавишу Enter и это поле очищается. Ну далее по новой, начинаем с ввода значения. Что нужно прописать, что бы при втором нажатии Enter, поле очистилось?

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  a: string;
begin
  case key of
    '0'..'9': ;
    #13:
      begin
        a:=edit1.Text;
        edit1.Text:=floattostr((strtofloat(a))*0.45);
        edit1.SetFocus;
      end;
    #8: ;
  else
    key:=chr(0);
  end;
end;

[Utkin]

Тебе нужно повесить какой-то внешний флаг - информацию о том, какой раз нажимается Энтер в Эдите. Большинство компонентов имеет поле Tag (наверно в Эдите тоже есть) который можешь задействовать как дополнительный критерий. То есть в метке #13 нужно ставить условие где бы программа могла определять - считать результат или очищать Эдит.

[type_Oleg]

Создайте что-то типа логического триггера. Глобальную переменную

var
  Form1: TForm1;
  chet:Boolean;
// .....
procedure TForm1.FormCreate(Sender: TObject);
begin
 chet:=True;
end; 
// ...
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
// ...
 if chet 
   then  // вычисления
   else  edit1.Text:='';
 chet:=not chet;

[eval]

интересен смысл сего бессмысленного занятия