Code in Prozedur einfügen

[Manzoni]

Delphi-Quellcode:

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

...

procedure Form1.paint;
begin
  with Image1 do
  begin
    Canvas.Pen.Color:=clblack;                  
    Canvas.Pen.Width:=2;                       
    Canvas.MoveTo(Mittelpunktx,Mittelpunkty);
  end;
  laenge:=100;
  x:=Round(Mittelpunktx+laenge*cos(Winkel));
  y:=Round(Mittelpunkty+laenge*sin(Winkel));
  Image1.Canvas.MoveTo(x,y);
  Image1.Canvas.Pixels[x,y]:=clblack;
  Winkel:=Winkel+2*pi/360;
  if (durchlauf <> 0) then                     
    Image1.Canvas.LineTo(x1,y1);
  x1:=x;
  y1:=y;
  durchlauf:=1;
end;

procedure Form1.Button1Click(Sender : TObject);
begin
  paint;
end;

aber was genau willst du machen?