Leinwand/Bild erlaubt kein zeichnen

[Nisbo]

Moin Moin,

bekomme genau die selbe Fehlermeldung, nur weiß ich nicht warum da ich nichts male usw
das ganze läuft in einem thread

Delphi-Quellcode:

type
  Thread_Nr_01 = class(TThread)
    procedure Hauptprogramm;
    procedure Execute; override;
  end;

procedure Thread_Nr_01.Execute;
begin
  while not Terminated do begin
    Hauptprogramm
  end;
end;

procedure Thread_Nr_01.Hauptprogramm;
var
  data              : TIdMultiPartFormDataStream;
  dieurl, line      : string;
  neueinlesen, iRow : Integer;
  dateistream       : TFilestream;
begin
  neueinlesen := 1;

  // checken ob schon mal runtergeladen wurde         
  if FileExists('artikel_shop_' + Form1.StringGrid1.Cells[2,Form1.stringgrid1.row] + '.txt') then begin
    if MessageDlg('Die Liste wurde bereits am '
      + DateToStr(FileDateToDateTime(FileAge('artikel_shop_' + Form1.StringGrid1.Cells[2,Form1.stringgrid1.row] + '.txt')))
      + ' um '
      + TimeToStr(FileDateToDateTime(FileAge('artikel_shop_' + Form1.StringGrid1.Cells[2,Form1.stringgrid1.row] + '.txt')))
      + ' Uhr vom Server geladen. Möchten Sie die Liste vom Server neu einlesen ?', mtConfirmation, [mbYes,mbNo],0) = IDNo then
      begin
        neueinlesen := 0;
      end;
  end;
........ code geht noch weiter ......

der debugger bleibt bei dieser zeile stehen:
if MessageDlg('Die Liste wurde bereits am '

nur warum ?