Formulario modal, se cierra

[[ElDioni]]

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