Delphi Form Consulta - Error Acess Violation

type
	TRetCidade: record
		Nome: string;
		CEP: string; // cep???
	end;

type
	TFrmConsulCidade = class(TForm)
	public
		{ Public declarations }
		class function Abre: TRetCidade; // função que deverá ser chamada onde se pretender utilizar a consulta de cidades
	end;

var
	FrmConsulCidade: TFrmConsulCidade;

{*.res}

implementation

class function TFrmConsulCidade.Abre: TRetCidade;
var
	FrmConsulta: TFrmConsulCidade;
begin
	FrmConsulta := TFrmConsulCidade.Create(nil);
	if FrmConsulta.ShowModal = mrOk then // se finalizou com Ok
	begin
		Result.Nome := FrmConsulta.DBGridConsulCidade.DataSource.Dataset.FieldByName('CIDADE').AsString;
		Result.CEP := FrmConsulta.DBGridConsulCidade.DataSource.Dataset.FieldByName('CEP').AsString;
	end
	else
	begin
		Result.Nome := EmptyStr;
		Result.CEP := EmptyStr;
	end;
	FreeAndNil(FrmConsulta); // finaliza o objeto e libera a memória utilizada
end;

procedure TFrmConsulCidade.DBGridConsulCidadeKeyPress(Sender: TObject;
var Key: Char);
begin
	if key = #13 then ModalResult := mkOk; // fecha a tela
end;

var
	RetCidade: UnitDaTelaDeConsultaDeCidades.TRetCidade;
begin
	RetCidade := TFrmConsulCidade.Abre; // abre a tela de consulta.
	if RetCidade.Nome <> EmptyStr then // quer dizer que a tela de consulta foi 'confirmada'
	begin
		FDQryFunc.FieldByName('CIDADE').AsString := RetCidade.Nome;
		FDQryFunc.FieldByName('CEP').AsString := RetCidade.CEP;
	end;
end;

unit UnitConsulCidade;

interface

uses
	Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
	Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, FireDAC.Stan.Intf,
	FireDAC.Stan.Option, FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS,
	FireDAC.Phys.Intf, FireDAC.DApt.Intf, FireDAC.Stan.Async, FireDAC.DApt,
	FireDAC.Comp.DataSet, FireDAC.Comp.Client, Vcl.Imaging.pngimage, Vcl.ExtCtrls,
	Vcl.StdCtrls, Vcl.Buttons, Vcl.Grids, Vcl.DBGrids;

type
	TRetCidade: record
        Nome: string;
        CEP: string;
    end;

	TFrmConsulCidade = class(TForm)
		FNome_cid: string; // retorna o nome da cidade
		FCEP: string; // retorna o CEP da cidade
		Panel1: TPanel;
		Panel2: TPanel;
		DBGridConsulCidade: TDBGrid;
		SpeedButton1: TSpeedButton;
		EdtConsultaCidade: TEdit;
		Image1: TImage;
		Label1: TLabel;
		procedure SpeedButton1Click(Sender: TObject);
		procedure DBGridConsulCidadeDrawColumnCell(Sender: TObject; const Rect: TRect;
		  DataCol: Integer; Column: TColumn; State: TGridDrawState);
		procedure EdtConsultaCidadeChange(Sender: TObject);
		procedure DBGridConsulCidadeKeyPress(Sender: TObject; var Key: Char);
		procedure DBGridConsulCidadeDblClick(Sender: TObject);
		procedure FormShow(Sender: TObject);
		procedure FormCreate(Sender: TObject);
		procedure EdtConsultaCidadeKeyPress(Sender: TObject; var Key: Char);
	private
		{ Private declarations }
	public
		{ Public declarations }
        class function Abre: TRetCidade; // função que deverá ser chamada onde se pretender utilizar a consulta de cidades
	end;

// não precisa declarar a variável abaixo. todo o tratamento será feito pelo médoto Abre (class function Abre)
//var
//	FrmConsulCidade: TFrmConsulCidade;

implementation

{$R *.dfm}

// abaixo deveria ter somente a UnitDataModule, porque o dataset deveria estar na própria tela de consulta
// ** a tela de consulta precisa ser auto-suficiente, precisando somente do datamodulo **
uses
	UnitDataModule, UnitCadCidade;

class function TFrmConsulCidade.Abre: TRetCidade;
var
    FrmConsulta: TFrmConsulCidade;
begin
    FrmConsulta := TFrmConsulCidade.Create(nil);
    if FrmConsulta.ShowModal = mrOk then // se finalizou com Ok
    begin
        Result.Nome := FrmConsulta.FNome_Cid;
        Result.CEP := FrmConsulta.FCEP;
    end
    else
    begin
        Result.Nome := EmptyStr;
        Result.CEP := EmptyStr;
    end;
    FreeAndNil(FrmConsulta); // finaliza o objeto e libera a memória utilizada
end;

procedure TFrmConsulCidade.FormCreate(Sender: TObject);
begin
	// inicializa os campos de retorno com conteúdo vazio
	FNome_cid := EmptyStr;
	FCep := EmptyStr;
end;

procedure TFrmConsulCidade.DBGridConsulCidadeDblClick(Sender: TObject);
begin
//	FrmConsulCidade.Close;
	ModalResult := mrCancel; // fecha a tela com Cancel - poderia ser com Ok
end;

procedure TFrmConsulCidade.DBGridConsulCidadeDrawColumnCell(Sender: TObject;
 const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
	if not odd(FrmCadasCidade.FDQryCidade.RecNo) then
		if not (gdSelected in State) then
		begin
			DBGridConsulCidade.Canvas.Brush.Color := clGradientInactiveCaption;
			DBGridConsulCidade.Canvas.FillRect(Rect);
			DBGridConsulCidade.DefaultDrawDataCell(rect,Column.Field,state);
		end;
end;

procedure TFrmConsulCidade.DBGridConsulCidadeKeyPress(Sender: TObject;
 var Key: Char);
begin
	if key = #13 then
	begin
		// o dataset deveria estar na própria tela de consulta, e não usar o dataset de outra tela
		FNome_cid := FrmCadasCidade.FDQryCidade.FieldByName('NOME_CID').AsString;
		FCEP := FrmCadasCidade.FDQryCidade.FieldByName('CEP').AsString;
		ModalResult := mrOk; // fecha a tela com Ok
	end;
end;


procedure TFrmConsulCidade.EdtConsultaCidadeChange(Sender: TObject);
begin
	// o dataset deveria estar na própria tela de consulta, e não usar o dataset de outra tela
	FrmCadasCidade.FDQryCidade.close;
	FrmCadasCidade.FDQryCidade.sql.clear;
	FrmCadasCidade.FDQryCidade.sql.add('select * from cidade where nome_cid like ''%'+ EdtConsultaCidade.text+'%''');
	FrmCadasCidade.FDQryCidade.open;
end;

procedure TFrmConsulCidade.EdtConsultaCidadeKeyPress(Sender: TObject;
var Key: Char);
begin
	if key = #13 then
		DBGridConsulCidade.SetFocus;
end;

procedure TFrmConsulCidade.FormShow(Sender: TObject);
begin
	EdtConsultaCidade.SetFocus;
end;

procedure TFrmConsulCidade.SpeedButton1Click(Sender: TObject);
begin
	// o dataset deveria estar na própria tela de consulta, e não usar o dataset de outra tela
	FrmCadasCidade.FDQryCidade.Open;
end;

end.

procedure TFrmCadastroFunc.ButtonConsultaCidadeClick(Sender: TObject);
var
    RetCidade: UnitConsulCidade.TRetCidade;
begin
    RetCidade := TFrmConsulCidade.Abre; // abre a tela de consulta.
    if RetCidade.Nome <> EmptyStr then // quer dizer que a tela de consulta foi 'confirmada'
    begin
        FDQryFunc.FieldByName('CIDADE').AsString := RetCidade.Nome;
        FDQryFunc.FieldByName('CEP').AsString := RetCidade.CEP;
    end;
end;

procedure TFrmConsulCidade.DBGridConsulCidadeKeyPress(Sender: TObject;
var Key: Char);
begin
  if key = #13 then
    DBGridConsulCidadeDblClick(Sender); // chama o evento DblClick
end;

procedure TFrmConsulCidade.DBGridConsulCidadeKeyPress(Sender: TObject;
var Key: Char);
begin
  if key = #13 then
  begin
    DBGridConsulCidadeDblClick(Sender); // chama o evento DblClick
    key = #0; // limpa a tecla, para que a ação não seja propagada
  end;
end;