[Delphinic]

Вообщем незнаю как точно сформулировать но надо так.
Один раз нажал кнопку выполнилось одно (одна процедура).
Второй раз, выполнилось другое(другая процедура).
А то неохото лепить 2 кнопки это не красиво...

[Decoding]

вариантов море (например)...

1) Делаешь 2 кнопки, одна из которых невидимая. После нажатия на кнопку, которая видна, скрываешь ее, а другую показвывешь. Разумеется, у каждой кнопки свои действия по OnClick

2) Делаешь что-то типа

Код:

 
var
  f: boolean;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
   if f then
      proc1
   else
      proc2;
   f := not f;
end;

Одним словом, включай фантазию…

[Ferra]

дополню..
или просто глобальный счетчик поставь

Код:

 
var
  С: Byte = 1;
 
procedure TForm1.Button1Click(Sender: TObject);
begin 
 case c of
  1: {тут делаешь что-то для первого нажатия};
  2: {для второго};
  3: {для третьего};
{можно и т.д. до 255}
 end;
 if c<255 then inc(c);
end;

[Delphinic]

ДА! Я чет тормоз после нового года.
Яже это делал с Timage.
Спасиб всем за помощь!