título em showmessage

//Substitui o ShowMessage
procedure Mensagem(Msg: String);
begin
  with CreateMessageDialog(Msg, mtInformation, [mbOk]) do
  try
    Caption := 'Importante - Informação';
    ShowModal;
  finally
    Free
  end;
end;

// exibe uma caixa de dialogo pedindo a confirmação (SIM - NÃO)
function Confirma(Msg: String): Boolean; 
  var
    i : Integer;
    f : TForm;
begin
    f:= CreateMessageDialog(Msg,MtConfirmation,[mbYes,mbNo]);
    try
      for i:=0 to f.ComponentCount -1 do
      begin
        if f.Components[i] is TButton then
          with TButton(f.Components[i]) do
            case modalresult of
              mrYes: Caption := '&Sim';
              mrNo: Caption := '&Não';
            end;
      end;
      f.Caption := 'Confirmação';
      Result := f.ShowModal = mrYes;
    finally
      f.Free;
    end;
end;