Помогите по delphi

-4

Помогите по delphi

У меня задание создать «Графический редактор в delphi»

Вот код

procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
isDown:=true; // ïåðåìåííóþ isDown îáúÿâèòü êàê ãëîáàëüíóþ òèïà Boolean.
Form1.PaintBox1.Canvas.MoveTo(X,Y);
Form1.Panel1.Tag:=X;
Form1.Tag:=Y;

end;

procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if isDown then
Form1.PaintBox1.Canvas.LineTo(x,y);
end;

procedure TForm1.PaintBox1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
isDown:=false;
end;
end
.

Ошибку выдает в этом месте

procedure TForm1.(тут ошибка)PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);

31.05.2011, 08:11

ываы
47

Комментарии — 10

RS31.05.2011, 08:12#

up
- andryjka31.05.2011, 08:22↑#
  
  могу помочь после того как помоюсь, схожу в туалет и поем)
RS31.05.2011, 08:46#

помогите кто нибудь
~~LLIeqp~~31.05.2011, 09:42#

poprobyu' zanogo perepishi text
~~Volodbka_36484~~31.05.2011, 09:55#

Ya svoe otebalsya s etim delphi
- ~~Kalugastar~~31.05.2011, 09:58↑#
  
  Помоги пацану.
andryjka31.05.2011, 10:56#

чё за коментарий тут ?// ïåðåìåííóþ isDown îáúÿâèòü êàê ãëîáàëüíóþ òèïà Boolean
andryjka31.05.2011, 11:04#

качай если что не так, пиши сюда что надо
- RS31.05.2011, 12:32↑#
  
  спс
RS31.05.2011, 12:32#

все помогли