calculadora em delphi com apenas uma edit?

[fogona]

Como faço uma calculadora em delphi com apenas uma edit

Ex: quando você digita o numero 9 depois clica no + e o numero 9 desaparece para digitar o outro.(tipo calculadora do Windows)

[Gabriel-bhz-]

SALVE!!!

Dá uma olhada neste código aê!

variavel global:
  Operacao: String;
  Num1, Num2: real;


procedure BotaoSomar // Botão de adição
begin
  Num1 := StrToFloat(Edit1.Text);
  Operacao := 'Soma';
  Edit1.Clear;
End;

procedure BotaoSubtrai // Botão de subtração
begin
  Num1 := StrToFloat(Edit1.Text);
  Operacao := 'Subtrai';
  Edit1.Clear;
End;

procedure BotaoResultado // Botão igual
var
  FinalConta: real;
begin
  Num2 := StrToFloat(Edit1.Text);
  case Operacao of
  'Soma'   : FinalConta := Num1 + Num2;
  'Subtrai' : FinalConta := Num1 - Num2;
  end; //case
  Edit1.Text := FloatToStr(FinalConta);
end;

Se não entender posta aê de novo!

Abraços,