CreateFile funktioniert nicht nach Aufruf von OpenDialog

[codenoob]

Hi Delphianer

Ich habe da folgendes Problem.
Ich habe 2 Buttons auf meiner Form der eine Button erzeugt beim Klick eine Datei und der andere öffnet ein Opendialog und ladet ein Icon in die Image rein.
Wenn ich gleich nach dem Start der Form den Button klicke der die Datei erzeugt dann macht er das auch und die Datei wird erstellt.
Wenn ich aber zuerst den Button mit dem Opendialog klicke und eben ein Icon in die Image lade, dann funktioniert das mit der Datei erstellen mit Button 2 nicht mehr.
Ich habe kein durchblick mehr wieso das phänomen auftritt.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.Buttons;

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Image18: TImage;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    FileHandle : THandle;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  MyIcon : TIcon;
  Od: TOpenDialog;
begin
  Od := TOpenDialog.Create(self);
  Od.Filter := 'Icon|*.ico';
  Od.InitialDir := GetCurrentDir;

  if Od.Execute then begin

     MyIcon := TIcon.Create;
    Try
      MyIcon.LoadFromFile(Od.FileName);
      Image18.Picture := nil;
      Image18.Picture.Bitmap.Assign(MyIcon);
    Finally
      MyIcon.Free;
    End;
  end;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
    FileHandle := CreateFile(pchar('test.dat'),GENERIC_WRITE,FILE_SHARE_WRITE,0,CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,0);
    CloseHandle(FileHandle);
end;

end.

lg. Tom