Как изменить текст сообщения при нажатии на кнопку?

[motaro]

Есть 2 кнопки (Button1 и Button2), по нажатию на кнопку Button1 выводится сообщение с текстом, мне нужно сделать так, чтобы после того как я нажал на Button2, при нажатии на Button1 текст сообщения был другим, как мне это сделать?

[Alex21]

Кидай на форму 2 кнопки:

var
  Form1: TForm1;
  down:boolean=false;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
   Down:=true;
   ShowMessage('Нажата кнопка 1'+#13+'Активируем переменную Down:=true ');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  if down<> true then
      ShowMessage('Нажата кнопка 2'+#13+'Кнопку 1 не нажимали. ')
  else
      ShowMessage('Нажата кнопка 2'+#13+'Кнопку 1 уже нажали. ')
end;

[motaro]

отлично, работает!