image in Procedur Verwenden

[DaniX]

Moin,
ich hab keine Ahnung wieso aber irgendwie kommen bei meiner Prozedur mit der ich einfach nur 'n Kreis Zeichnen wollte die Fehlermeldungen:
[Fehler] Unit1.pas(43): E2003 Undefinierter Bezeichner: 'image1'
[Fehler] Unit1.pas(45): E2003 Undefinierter Bezeichner: 'moveTo'

wenn jemand den Fehler dierekt im Programm erkennen könnte oder ihn auch so weis wäre mir sehr geholfen:

Delphi-Quellcode:

procedure Kreis(a,b:integer);
var x,y,r,w:integer;
begin
a:=100;
b:=100;
r:=50;
with image1.Canvas do
  begin
  moveTo(a-r,b);
  for x:=-r to r do
    begin
    w:=r*r-x*x;
    y:=Round(sqrt(w));
    lineTo(a+x,b+y);
    end;
  moveTo(a-r,b);
  for x:=-r to r do
    begin
    w:=r*r-x*x;
    y:=Round(sqrt(w));
    lineTo(a+x,b-y);
    end;
  end;
end;

[edit=Luckie]Delphi-Tags korrigiert. Mfg, Luckie[/edit]