Unsatisfied forward or external declaration

[burn]

Hallo,

du hast hier TForm1 vergessen ....

TForm1.Pyramide..

Delphi-Quellcode:

procedure TForm1.Pyramide (Ebenen: Integer; Breite: Integer; X1,Y1: Integer);
var ZeichneBreite: Integer;
begin
//ZeichneBreite:= Round (Breite div Ebenen);
with Form1.Image1.Canvas do begin
  MoveTo (X1,Y1);
  LineTo (PenPos.X+Breite div 2, PenPos.Y);
  MoveTo (PenPos.X+Breite div 2, PenPos.Y);
  LineTo (PenPos.X+Breite div 2, PenPos.Y+Breite);
  MoveTo (PenPos.X+Breite div 2, PenPos.Y+Breite);
  LineTo (X1,Y1);
end;
end;

Edit: Herzlich willkommen im Forum ...

mfg burn