Problema na chamada do formulário

Boa tarde pessoal estou desenvolvendo uma aplicação para exportar os dados do Paradox diretamente do firebird formatando os campos como eu desejar! Até aí tudo bem! Criei uma função para exportar as cidades e quando não encontrar a cidade irei chamar um formulario onde o usuário irá buscar a cidade que ele deseja. Aqui abaixo a função:   function TFrmExportar.BuscaCidade(fNome, fEstado: string ) : integer;
begin
  Result := -1;
  with Dm.QrConsulta do begin
     Close;
     SQL.Clear;
     SQL.Add('SELECT * FROM GER_CIDADES WHERE C_CIDADE = '+QuotedStr(RemoveAccent(fNome))+ 'AND C_UF = '+QuotedStr(RemoveAccent(fEstado)));
     Open;
     if RecordCount = 0 then begin
        FrmBuscaCidade:= TFrmBuscaCidade(Self);
        FrmBuscaCidade.ShowModal;
        FrmBuscaCidade.Free;
     end;
     if RecordCount = 1 then
        Result := FieldByName('C_CODCIDADE').AsInteger;
     if RecordCount > 1 then begin
        // Varias cidades pedir para o usuario selecionar
     end;
  end;
end;
O problema é quando está exportando a cidade qu ele não encontra a cidade desejada ele deveria abrir o formulário FrmBuscaCidade, mas ao inves disso está gerando este erro aqui:   First chance exception at $75B49617. Exception class EInvalidOperation with message 'Cannot make a visible window modal'. Process ExportParadoxFire.exe (112)   Será que vocês podem mim ajudar?