Одно нажатие на кнопку Button

[Merlin88]

Подскажите пожалуйста! Как сделать так чтобы можно было только один раз нажать на кнопку Button а при повторном нажатии на эту кнопку выдавалась сообщение что вы уже нажали эту кнопку

[tsar_]

Как вариант:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (Button1.Tag = 1) then
    begin
    ShowMessage('Ваш лимит нажиманий исчерпан.');
    exit;
    end;

  Button1.Tag:=1;
end;

Если Button1.Tag, конечно, для других целей не используется...

[Аватар]

procedure TForm1.Button1Click(Sender: TObject);
begin
  //здесь что-то делается
  ...
  Button1.Enable:=False; //А это, что бы следующий раз неповадно было кнопку нажимать
end;