OK, da ist auch noch ein Thread involviert. Das macht das Ganze auch nicht gerade einfacher.
Das scheint mir alles ziemlich ineinander verflochten zu sein. Ich denke, du hast zwei Möglichkeiten:
1. Du machst die die Mühe und zerpflückste es und schreibt es windowskonform neu. Dazu gehört dann auch dass man Ausgaben nicht einfach mit Canvas.TextOut auf den Canvas malt, sonder dass alle Canvas-Operationen ausschließlich im OnPaint stattfinden. Ansonsten ist die Ausgabe wieder weg, wenn sich das Fenster neu zeichnen muss, weil z.B. ein anderes Fenster drübergeschoben wurde. Und Grafikausgaben aus einem Thread heraus müssen uber Synchronize erfolgen.
oder:
2. Du machst das mit dem Konsolenprogramm.
Der Mittelweg, den du momentan angefangen hast, funktioniert nicht.
Und wie schon gesagt: lass hier:
Delphi-Quellcode:
procedure TForm1.grafikinit;
begin
Form1.Image1.Left := 0;
Form1.Image1.Top := 0;
in den Aufrufen das Form1 weg:
Delphi-Quellcode:
procedure TForm1.grafikinit;
begin
Image1.Left := 0;
Image1.Top := 0;