Keine Grafikausgabe mit Image1.Canvas.MoveTo... unter Win 7

[andydp]

Hallo Leute

Hab ein echtes Problem und bin auf Eure geschätzte Hilfe angewiesen...

Habe ein Programm geschrieben, welches nun jahrelang unter XP fehlerfrei im Einsatz war.
Beim Umstellen auf Win 7 habe ich nun festgestellt, dass mit folgendem Code
keine Linien mehr auf das Image gezeichnet werden...

Delphi-Quellcode:

/ Umriss Zeichnen
  Clear_Temp_Screen;
  Image1.Canvas.Brush.Style := bsClear;
  Image1.Canvas.MoveTo(50,10);
  Image1.Canvas.LineTo(50,266);
  Image1.Canvas.LineTo(770,266);

 // Daten an rechten Rand schreiben
  Image1.Canvas.Pen.Color := clBlack;
  Image1.Canvas.MoveTo(790,10);
  Image1.Canvas.LineTo(790,266);
  Image1.Canvas.LineTo(930,266);
  Image1.Canvas.LineTo(930,10);
  Image1.Canvas.LineTo(790,10);
  Image1.Canvas.Pen.Color := clBlack;

  Image1.Canvas.Font.Name:='Arial';
  Image1.Canvas.Font.Style:=[fsBold];
  Image1.Canvas.Font.Height:=18;
  Image1.Canvas.TextOut(798,20,SDatum2+FormatDateTime('dd.mm.yyyy',Tmp_Datum));
  Image1.Canvas.Font.Style:=[];
  Image1.Canvas.Font.Height:=14;
  Image1.Canvas.TextOut(798,60,SKundenNummer2+IntToStr(Header_Kunden_Nummer));
  Image1.Canvas.TextOut(798,80,SGerTeNummer2+IntToStr(Header_Geraete_Nummer));
  Image1.Canvas.TextOut(798,100,SSollwert+IntToStr(SpinEdit1.Value));

  Image1.Canvas.Font.Name:='Arial';
  Image1.Canvas.Font.Style:=[fsBold];
  Image1.Canvas.Font.Height:=14;

  Image1.Canvas.TextOut(50,315,SKOMMENTAR);
  Image1.Canvas.TextOut(50,350,SEREIGNISDATEN1);

  Image1.Canvas.Font.Style:=[];

usw....

Der Canvas bleibt einfach leer, d.h. nur der weisser Hintergrund ist sichtbar.

Danke für Eure Hilfe...