Procedure showMsg

procedure showMsg(texto:string);
var
 textonovo:string;
begin
   textonovo:=Trim(copy(texto,pos(':',texto)+1,strlen(PChar(texto))));

   if LeftStr(UpperCase(texto),7)='ALERTA:' then
     MessageDlg(textonovo, mtWarning, [mbOK], 0)
   else if LeftStr(UpperCase(texto),6)='AVISO:' then
     MessageDlg(textonovo, mtInformation, [mbOK], 0)
   else if LeftStr(UpperCase(texto),5)='ERRO:' then
     MessageDlg(textonovo, mtError, [mbOK], 0)
   else if texto<>'' then
     MessageDlg(texto, mtCustom , [mbOK], 0);

end;


//Exemplo de uso
showMsg('Aviso: Exemplo de mensagem de aviso');
showMsg('Erro: Exemplo de mensagem de erro');
showMsg('Alerta: Exemplo de mensagem de alerta');