Создания Класса

[Mickle]

Привет всем!
Дело в том что? Как можно Сделать вот эту процедуру
procedure Shoot;
var targetx,targety:integer;

begin
nx:=Mainform.Sprite.Left+mainform.S prite.Width div 2;
ny:=Mainform.Sprite.top+mainform.Sp rite.Height div 2;
targetx:=nx;
targety:=ny;
if mainform.GoLeft then
targetx:=nx-100;
if mainform.GoRight then
targetx:=nx+100;
if mainform.GoUp then
targety:=ny-100;
if mainform.GoDown then
targety:=ny+100;
mainForm.Canvas.Pen.Color:=clWhite; // цвет огня
MainForm.Canvas.MoveTo(nx,ny);
MainForm.Canvas.LineTo(targetx,targ ety);
sleep(5);
MainForm.Canvas.Pen.Color:=clBlack; // цвет фона
MainForm.Canvas.MoveTo(nx,ny);
MainForm.Canvas.LineTo(targetx,targ ety);
end;
как класс , дело в том что когда я зажимаю одну клавишу в моем примере клавишу vk_Up..vk_Down у меня происходит движение изображения загружаемого с файла ресурсов либо вверх либо вниз и.т.д при совместном нажатие с клавишей например vk_Space происходит стрельба после отпускание клавиши пробел движение прекращается хотя клавиша вверх остается зажатой вот мне сказали надо определить эту процедуру как отдельный класс а как это делается я понятия вообще не имею ни когда ни делал такого так как недавно начил учить Delphi выручите
пожалуста ну или хотябы что можно почитать.
Зарание благодарю.

[Wiggle]

http://delphikingdom.ru/lyceum/seminar.asp?ID=6

В частности - Глава 3, Объектно-ориентированное программирование