Помогите с написанием рисунка в Canvas

[Турик]

НУжно Сделать Рисунок в Canvas и чтоб этот рисунок двигался по нажатию стрелок на клавиатуре в верх вниз в лево или в право и еще чтоб рисунок передвигался за курсором, куда курсор туда и рисунок(Препод так сказал)!!!Помогите пожалуйста вторую двойку не хочется)))Рисунок на выбор можно!!!

[ОДИНОЧЕСТВО В СЕТИ]

чего хоть рисовать то? и что это такое 18 функций? хоть одну приведите!

[DomiNick]

Хм... Не совсем понятно задание.....
Странные требования какие-то...

[Турик]

Выше я переправил свое сообщение!!!Может так понятнее????ПОмогите

[ОДИНОЧЕСТВО В СЕТИ]

2 турик стучите в аську обсудим!!!!

[Stilet]

Интересно а что подразумевается под словом "анимация"?

[Турик]

ТОчней если быть то просто рисунок!!!)))

[SERG1980]

implementation

{$R *.dfm}
 var pic,buf:TBitmap;
     r:Trect;
     x,y:integer;
procedure TForm1.FormCreate(Sender: TObject);


begin
 x:=100;
 y:=100;
 pic:=TBitMap.Create;
 buf:=TBitMap.Create;
 pic.LoadFromFile('мух.bmp');
 pic.TransparentColor:=pic.Canvas.Pixels[1,1];
 pic.Transparent:=true;
 buf.Width:=pic.Width;
 buf.Height:=pic.Height;
 r:=bounds(x,y,pic.Width,pic.Height);
 buf.Canvas.CopyRect(r,form1.Canvas,r);
 form1.Canvas.Draw(x,y,pic);
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  form1.Canvas.Draw(x,y,buf);
 case key of
  VK_LEFT:  dec(x,2);
  VK_RIGHT: inc(x,2);
  VK_DOWN:  inc(y,2);
  VK_UP:    dec(y,2);
 end;
 r:=bounds(x,y,pic.Width,pic.Height);
 form1.Canvas.Draw(x,y,pic);
end;

[Турик]

Скинь в архиве готовую прогу плиз!!!))))

[ОДИНОЧЕСТВО В СЕТИ]

Скинь в архиве готовую прогу плиз!!!))))

пожалуйста!