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.