Also auch das Beispiel geht bei mir einwandfrei...
Delphi-Quellcode:
procedure TTestThread.Execute;
var
bmp :TBitmap;
i:Integer;
begin
bmp :=TBitmap.Create;
bmp.Canvas.Lock;
bmp.Width := 100;
bmp.Height := 100;
bmp.Canvas.Pen.Color := clBlue;
for I := 0 to 100 do
begin
bmp.Canvas.MoveTo(0,0);
bmp.Canvas.LineTo(100,i);
end;
bmp.SaveToFile('C:\temp\test\' + Ffn );
bmp.Free;
end;
mit 200 Threads probiert (auch wenn des sinnbefreit ist..)