Wie wäre es denn so?
Delphi-Quellcode:
procedure TForm1.Rechnung1Click(Sender: TObject);
var a,c:double;
begin
a:=StrToFloat(Edit1.Text);
c:=a*a;
if isbutton1clicked then // global deklariert
begin
Edit3.Text:=FloatToStr(c);
isbutton1clicked := false;
end;
end;
Für Button1 im Objektinspektor das Ereignis OnClick aktivieren.
und Button1 mit folgendem Code versorgen:
isbutton1clicked :=true;