Bowling(anfänger)

[WIng2005]

Hallo,

suchst du sowas:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
if button1.caption='namen einlesen' then
  Begin
    // mache was....

    button1.caption='bestätigen'
    exit;
  end
else if button1.caption='bestätigen' then
  Begin
    // mache was....

    button1.caption='Bitte werfen'
    exit;
end

else if button1.caption='Bitte werfen' then
Begin
    //mache was...

end;
end;

?

MFG
Steffen