[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;