Formulario modal, se cierra

[lucasarts_18]

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.