Code: Alles auswählen
procedure TForm1.place(ABlock:TBlock;x1,y1,z1,x2,y2,z2:integer);
etc...
place(Holz,2,0,2,-2,0,-2);
Wenn du jetzt innerhalb der procedure die Typen unterscheiden möchtest, kannst du es so machen:
Code: Alles auswählen
If ABlock is TWood then...
Dann brauchst du es nicht extra unterscheiden.