Deine Prozedur musst du umändern, damit sie auf das Form zugreift. Es gibt zwei Varianten:
procedure TFormX.D_KO_8_zeichnen();
und
Delphi-Quellcode:
procedure D_KO_8_zeichnen();
var
s: string;
i: integer;
begin
with FormX do
begin
D_KO_8;
i := 1;
while i < 27 do
begin
s := IntToStr(Spielfeld_array[i,1]);
DrawBox(Paintbox1.Canvas.Handle, Spielfeld_array[i,2], Spielfeld_array[i,3], s);
inc(i);
end;
end;
end;
Edits: Schreibfehler..
