Fórum Já tentei algumas das respostas dadas anteriormente e o #197286

é quase impossível dar alguma resposta apenas com estas informações.

Geralmente este tipo de erro ocorre qdo vc tenta acessar informações num form q não existe mais, tenta acessar algo q já foi liberado da memória ...

tenta colocar aqui qdo esta dando o erro p/ tentarmos analisar melhor.

abraço

ocorrendo o erro, e ele só me dá o erro ao chegar no end do begin.



procedure TFabertura.FormClose(Sender: TObject; var Action: TCloseAction);
begin
// Flogon.Visible := true;
DMArcamp.IBTCodigo.Open;
DMArcamp.IBTCodigo.Last;
DMArcamp.IBTCodigo.Edit;
DMArcamp.IBTCodigoTB_ATUAL_CONTA.AsInteger := 1;
DMArcamp.IBTCodigo.Post;
DMArcamp.IBTCodigo.Close;
Fabertura.CLOSE;
Fabertura.Free;
Application.Terminate;
action := cafree;
// Flogon.Free;
// Release;
end;

procedure TFabertura.FormClose(Sender: TObject; var Action: TCloseAction);
begin
// Flogon.Visible := true;
DMArcamp.IBTCodigo.Open;
DMArcamp.IBTCodigo.Last;
DMArcamp.IBTCodigo.Edit;
DMArcamp.IBTCodigoTB_ATUAL_CONTA.AsInteger := 1;
DMArcamp.IBTCodigo.Post;
DMArcamp.IBTCodigo.Close;
Fabertura.CLOSE; // tira
Fabertura.Free; // tira
Application.Terminate; // Tira essa Linjha
action := cafree; // tira
// Flogon.Free;
// Release;
end;

no clique no menu vc adiciona o seguinte código:

try
Application.CreateForm(TFabertura, Fabertura);
Fabertura.ShowModal;
finally
Fabertura.Release;
Fabertura:=nil;
end