[[felipe88]]

Pues seria algo tan facil como esto

Código Delphi [-]
var
  Form1: TForm1;
  hizo_click :Boolean;

implementation

{$R *.dfm}

{ TForm1 }

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  hizo_click := False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  hizo_click := True;
end;

end.

Como dice Fenareth

Ya el resto es manejar la condicion que necesites...