Uheldig opførsel

Jeg har en funktion der bruges til at vælge en fil fra disken og opdatere en tabel med dette navn.
Alt det fungerer helt som forventet, men der sker det at når fildialogen lukkes, så er det som om den form den er kaldt fra mister fokus. Jeg skal altså trykke med musen i formen før jeg kan bladre videre i mine records i tabellen.

Det er lidt irriterende og jeg ville gerne undgå det, men hvordan?

procedure TfrmJsAttachments.FileAdd;
var
  dlgOpen: TOpenDialog;
  FileName: string;
begin
  dlgOpen := TOpenDialog.Create(Self);
  try
    dlgOpen.InitialDir := User.Folder(ufAttachment);
    dlgOpen.Options := [ofFileMustExist];
    dlgOpen.Filter := 'Word 2007 template (*.dotx)|*.dotx|Word 2003 template (*.dot)|*.dot|' +
                      'Word 2007 dokument (*.docx)|*.docx|Word 2003 dokument (*.doc)|*.doc|' +
                      'PDF fil (*.pdf)|*.pdf|Alle filer (*.*)|*.*';
    dlgOpen.FilterIndex := 5;
    if dlgOpen.Execute then
      FileName := dlgOpen.FileName;
  finally
    dlgOpen.Free;
  end;
  if FileName <> '' then
    begin
      try
        qryAttachments.Edit;
        qryAttachments.FieldByName('fldattachment_name').AsString := FolderRemove(FileName);
        qryAttachments.UpdateRecord;
      except
        on E:exception do
          Logfile.Error('frmJsAttachments.FileAdd: ' + E.Message);
      end;
    end;
  ActiveControl := grdAttachments;
end;