procedure TForm1.Button1Click(Sender: TObject); begin if(Sender as TButton).Tag = 0 then begin // здесь "произведена какая то операция" (Sender as TButton).Tag:= 10; end; end;
Я не понял Вашего вопроса, но всё же Вам на него отвечу!