Code in Prozedur einfügen

[DeadEternity]

Hi Leute,
ich hab mal ein Testprogramm geschrieben, das gestartet wird, wenn man nen knopf drückt.
ich hab das aber nicht als normale prozedur geschrieben, sondern direkt im knopf drin.
Jetzt möcht ich das aber in eine prozedur umwandeln, aber irgendwie funktioniert
das nicht. Was mach ich falsch?

Delphi-Quellcode:

procedure paint;
begin
form1.image1.Canvas.Pen.Color:=clblack;                  form1.image1.Canvas.Pen.Width:=2;                        

  Form1.Image1.Canvas.MoveTo(Mittelpunktx,Mittelpunkty);
  laenge:=100;
  x:=Round(Mittelpunktx+laenge*cos(Winkel));
  y:=Round(Mittelpunkty+laenge*sin(Winkel));
  Form1.Image1.Canvas.MoveTo(x,y);
  Form1.Image1.Canvas.Pixels[x,y]:=clblack;
  Winkel:=Winkel+2*pi/360;

  if (durchlauf <> 0) then                     
    begin
      Form1.Image1.Canvas.LineTo(x1,y1);
    end;

  x1:=x;
  y1:=y;
  durchlauf:=1;
 end

Die globalen Variablen sehen so aus:

Delphi-Quellcode:

x,y,kreis,                          
  x1,y1,durchlauf,umdrehung :integer; 
  laenge:real;                        
  Mittelpunktx,                       
  Mittelpunkty :integer;              
  winkel:real;

Kann mir irgendwer sagen was ich da nicht beachtet hab?

MfG Daniel