Fórum Result := (ShowModal = mrOk) #591896

Blz galera?

Estou com um problema que esta me tirando o sono, utilizo a mesma função no delphi 7 e funciona corretamente, quando tento utilizar no delphi 10.2 apresenta o seguinte erro: "Access violation at address", debugando o programa percebi que o erro acontece exatamente nesse linha: "Result := (ShowModal = mrOk) "

Alguém sabe me dizer como resolver esse erro por favor?


class function TfrmGrupoCad.ExibeGrupoCad(var AGrupo: TGrupoCad): boolean;
begin
with Self.Create (nil) do
begin
Result := (ShowModal = mrOk) ;
if Result then copyDataToRecord(AGrupo);
Free ;
end ;
end;