Bild laden mit Progressbar zu langsam

[Neutral General]

Hi,

Also ich lade ein eigenes Bildformat in mein Programm rein. Bildformat ist übertrieben. Eigentlich wird in eine Textdatei nur die Größe und jeder einzelne Pixel reingeschrieben.

Das laden klappt wunderbar.

Delphi-Quellcode:

  Progress.Position:= 0;
  Progress.Max := Form.Height * Form.Width;
  for J:= 0 to StrToInt(Laden.Strings[1]) do begin
   Application.ProcessMessages;
   for i:= 0 to StrToInt(Laden.Strings[0]) do begin
    if Pos('cl',Laden.Strings[Zahl]) = 0 then begin
     Form.Image321.Canvas.Pixels[i,j] := StringToColor('$00'+Laden.Strings[Zahl]);
    end
    else begin
     Form.Image321.Canvas.Pixels[i,j] := StringToColor(Laden.Strings[Zahl]);
    end;
    inc(Zahl);
    Progress.Position := Zahl;
   end;
  end;

Das funktioniert wie gesagt. Natürlich dauert das laden schon etwas länger als bei normalen Bildformaten weil meine Dateien auch um einiges größer sind Wenn ich die Zeile
   Progress.Position := Zahl; weglasse dann ist das um EINIGES schneller. Nur wird halt der Ladefortschritt nicht angezeigt.. Und was bringt mir eine Anzeige vom Ladevorgang wenn dadurch das Laden min 3 mal so lange wenn nicht sogar noch länger dauert -.-
Kann man das nicht irgendwie schneller machen? Das kann doch nicht sein das diese eine Zuweisung sooo viel Zeit braucht..

PS: Sagt mir nicht das mein Bildformat Schwachsinn ist oder so, das weiß ich auch aber ich habs immerhin erfunden