Excessão StackOverflow ao fechar formulário

Tenho um formulário onde nele possui os seguintes componentes:

1 dbGrid lincado a tabela EMPRESAS
1 Edit chamado edProcEmpresa

Neste formulário há os seguintes códigos:

procedure TFrmProcEmpresa.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Close;
end;

procedure TFrmProcEmpresa.grdEmpresaCellClick(Column: TColumn);
begin
Try
FrmLanContratos.edEmp.Text := dmRC.dsEmpresaRAZAOSOCIAL.AsString;
FrmLanContratos.lbEmp.Caption := ´Empresa: ´+inttostr(dmRc.dsEmpresaCODEMPRESA.AsInteger);
Close;
Except
begin
BEEP;
if Messagedlg(´Deseja fechar a janela?´,mtConfirmation,[MbYes,mbNo],0)=mrYes then
FrmProcEmpresa.Close;
end;
end;
end;

procedure TFrmProcEmpresa.FormShow(Sender: TObject);
begin
if dmRC.Banco.Connected = false then
dmRC.Banco.Connected := true;

if dmRc.Transacao.Active = false then
dmRc.Transacao.Active := true;

if dmRc.dsEmpresa.Active = false then
dmRc.dsEmpresa.Active := true;
end;

Utilizo banco de dadosFirebird 1.5, Delphi 7 e a paleta Interbase

No evento onChange do Edit há o código:

procedure TFrmProcEmpresa.edProcEmpresaChange(Sender: TObject);
begin
with dmRC.dsEmpresa do
begin
Close;
SelectSQL.Clear;
SelectSQL.Add(´select * from EMPRESAS´);
SelectSQL.Add(´Where RAZAOSOCIAL =:PARAMETRO´);
ParambyName(´PARAMETRO´).AsString := (Trim(edProcEmpresa.Text)+´¬´);
Prepare;
Open;
end;
end;

Porém a consulta retorna em branco, e ao tentar fechar o formulário aparece o seguinte erro:

Project RC.exe raised class EStackOverflow with message ´Stack overflow´. Process stopped. Use Step or Run to continue.

Alguém pode me ajudar a resolver esse problema?