Exemplo 03: teste de condição

if (radioPositivas.ItemIndex = -1) and (radioNegativas.ItemIndex = -1) then
    ShowMessage('Selecione uma das opções de certidão!!!')
  else
  begin
     WordApp := CreateOleObject('Word.Application');
     WordApp.Visible := false;
  end;