Undefinierter Bezeichnet TPaint1

[himitsu]

Oder auf Alles, was zum Form gehört, richtig zugreifen.

z.B. statt PaintBox1 > Form1.PaintBox1 verwenden

Code:

procedure D_KO_8_zeichnen(); 
var 
s: string; 
i: integer; 
begin 
  D_KO_8; 
  i := 1; 
  while i < 27 do 
  begin 
    s := IntToStr(Spielfeld_array[i,1]); 
    DrawBox([color=red]Form1.[/color]PaintBox1.Canvas.Handle, Spielfeld_array[i,2], Spielfeld_array[i,3], s); 
    inc(i); 
  end; 
end;

Ach ja, wenn du die variante vom Dax verwenden willst, dann muß deine Prozedur natürlich auch in die Form-Definition eingetragen werden. (z.B. unter PRIVAT)