Fórum Chamar formulário dentro da função #376227

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?