Formulario modal, se cierra
 

Código Delphi [-]
 procedure TFormGesCli.BtnAceptarClick(Sender: TObject);
 begin
   if txtamigo.text='' then
   begin
     if txtcliente.text='' then
     begin
       showmessage('Debe introducir al menos uno de los dos codigos');
       exit;
     end;
   end;
 end;

despues de pasar por el exit salta al end del procedimiento y de ahi pasa directamente al evento close del formulario, el formulario esta abierto como showmodal, porque se me cierra si yo no le doy ninguna instruccion para cerrarse, tiene que ver con que yo lo abra como modal
Gracias por adelantado

Hola:

Prueba con esto

Código Delphi [-]
procedure TFormGesCli.BtnAceptarClick(Sender: TObject);
 begin
 if txtamigo.text='' then
   begin
     if txtcliente.text='' then
       begin
         showmessage('Debe introducir al menos uno de los dos codigos');
         ModalResult := mrnone
         exit;
       end;
   end;
 end;

Te recomiendo que eches una mirada a la ayuda de delphi sobre la propiedad Modal Result.

Hasta Luego..Suerte.

ModalResult := mrnone
 

Gracias, funciona perfectamente