[Redstason]

Код:

var
 flag:integer;

procedure TFrmDataEnter.Button1Click(Sender: TObject);
begin
 if flag=1 then
  ...
 if flag=2 then
  ...
Inc(flag);
end;