ModalResult Delphi

ModalResult só retorna 0 e quando entra no IF não da certo.

//procedure TfrmPesProdOtica.FormKeyPress(Sender: TObject; var Key: Char);
begin
GradePesquisa.SetFocus;
if Key = #13 then
begin
ModalResult := mrOk;
Close;
end;

if Key = #27 then
begin
ModalResult := mrCancel;
Close;
end;
end;

//frmPesProdOtica := TfrmPesProdOtica.Create(Self);
frmPesProdOtica.Name := 'frmPesProdOtica';
if frmPesProdOtica.ShowModal = mrOk then
txtProduto_LD.Text := FormatFloat('0000000000000', oCad05.FieldByName('COD_PROD').AsInteger) + ' - ' + oCad05.FieldByName('DES_PROD').AsString
else
begin
txtCodGrupo_LD.Clear;
txtCodGrupo_LD.SetFocus;
end;