[Alegun]

Здесь нужно выставить флажок, можно и такой

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
 if(Sender as TButton).Tag = 0 then
  begin

 // здесь "произведена какая то операция"

   (Sender as TButton).Tag:= 10;
  end;
end;