OnClick: img1=>img2?

[MyLastHit]

Пытаюсь создать кнопку(в виде картинки) которая при на нее нажатии бы превращалась в другую кнопку(картинку).
Алгоритм: Кидаю Image на форму, ставлю ей начальную картинку, создаю imglist, кидаю туда вторую картинку.

Незнаю правильно ли я делаю, но вот:

procedure TForm1.Image1Click(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Image1.Canvas.Rectangle(0, 0, 163, 21);
  ImageList1.Draw(Image1.Canvas, 0, 0, 0);
end;

Выдает ошибку... Знаю..нужно первую картинку ставить в imglist и для него событие писать, но нужно так чтоб кнопка существовала независимо от того навел мышку на форму или нет и тд... А я других событий не знаю которые бы мне подошли...

[W.i.d.g.e.t.1]

а зачем координаты, просто на ИмаджКлик ставишь смену картинки...оО или я что то не понимаю???

[spamer]

Ну вот как вариант, жмете и меняется картинка:

...

var
  buf : TBitmap;
  i : Integer;

..

procedure TForm1.Image1Click(Sender: TObject);
begin
  case i of
    0 : begin
          buf.LoadFromFile('C:\' + IntToStr(i) + '.bmp');
          Image1.Canvas.Draw(0, 0, buf);
          inc(i);
        end;
    1 : begin
          buf.LoadFromFile('C:\' + IntToStr(i) + '.bmp');
          Image1.Canvas.Draw(0, 0, buf);
          inc(i);
        end;
    2 : begin
          buf.LoadFromFile('C:\' + IntToStr(i) + '.bmp');
          Image1.Canvas.Draw(0, 0, buf);
          inc(i);
        end;
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  i := 0;
  buf := TBitmap.Create;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  buf.Free;
end;

...