bmp speichert nicht

[fortuneNext]

Hi...
ich hab grad irgendwie eine Blockade.
Ich habe mir eine Prozedur geschrieben die einfach Pixelweise ein bmp in ein anderes kopieren soll (ich weiss, der Sinn ist fraglich, aber egal...)

So sieht sie aus:

Delphi-Quellcode:

procedure TfMain.Btn_ExeClick(Sender: TObject);
var
  x,y: integer;
  Old, New: TBitMap;
begin
Old := TBitMap.Create;
Old.LoadFromFile(EditOld.Text);
New := TBitMap.Create;
New.LoadFromFile(EditNew.Text);
For y := 1 to Old.Height do
begin
  For x := 1 to Old.Width do
  begin
    New.Canvas.Pixels[x,y] := Old.Canvas.Pixels[x,y];
  end;
end;
New.SaveToFile(EditNew.Text);
Old.Destroy;
New.Destroy;
end;

Das Programm hängt zwar die Weile, aber das Bitmap ist hinterher noch leer. Was hab ich peinliches vergessen?
mfg