Przenoszenie plików

var
Bitmap : TBitmap;
begin
Open.Execute;
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile(open.InitialDir);
CopyFile('open.initialdir', 'C:\uiog23222j.bmp', True);
Bitmap.Free;
end;

Wszystko dobrze się kompiluje ale podczas pracy wyskakuje błąd.
Open to jest OpenPictureDialog.
Proszę o pomoc.

var
Bitmap : TBitmap;
begin
if Open.Execute then
begin
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile(Open.FileName);
CopyFile(Open.initialdir, 'C:\uiog23222j.bmp', True);
Bitmap.Free;
end;
end;

var
Bitmap : TBitmap;
begin
Open.Execute;
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile(open.InitialDir);
CopyFile('open.initialdir', 'C:uiog23222j.bmp', True);
Bitmap.Free;
end;

powinnło być

var
Bitmap : TBitmap;
begin
Open.Execute;
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile(open.filename);
CopyFile(open.filename, 'C:uiog23222j.bmp', True);
Bitmap.Free;
end;