Bitmap zwingt PC in die Knie

[Neutral General]

Hi,

Also was mir so noch nie passiert ist, ist folgendes: Ich habe ein Image mit einem Bitmap drin auf meinem Formular und im Button steht folgender Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i,j: Integer;
    row: PRGBQuad;
    bmp: TBitmap;
    tmp: TBitmap;
begin
  bmp := Image1.Picture.Bitmap;
  bmp.PixelFormat := pf32Bit;
  tmp := TBitmap.Create;
  tmp.Width := bmp.Width*bmp.Height;
  tmp.Height := 256;
  tmp.PixelFormat := pf32Bit;
end;

Die Variablen i,j und row sind noch von Zeiten wo mit ihnen gearbeitet wurde. Hab entsprechende CodeTeile aber entfernt und so starte ich mein Programm, klicke auf den Button und mein PC geht sowas von in die Knie das er bestimmt (je nachdem wie man sich verhält) bis zu 5 Minuten unbedienbar ist.

Gruß
Neutral General