Mensagem personalizada

Bom amigo,o que eu faria é criar formlário e usá-lo para mostrar as mensagens, personalizando os botões, icones e o que mais for necessário.
Vc pode criar procedimentos pra mostrar vários tipos de mensagens com esse mesmo Form.
Pode ser que haja uma maneira mais fácil tb, vc já tentou pesquisar mais aqui no forum?
Um Abraço

dai vc chama a função da seguinte forma
If StrToInt(Mens_Prov_Dup) = 1 ....
If StrToInt(Mens_Prov_Dup) = 2 ....
If StrToInt(Mens_Prov_Dup) = 3 ....

function Mens_Prov_Dup: String;
var
I:integer;
F:TForm;
begin
F:= CreateMessageDialog(´Escolha o Tipo de Faturamento das Nota(s) ?´,
mtconfirmation,[mbyes,mbno,mbOk]);
F.ClientHeight := 130;
F.ClientWidth := 320;

try
for i:=0 to F.ComponentCount -1 do
if F.Components[i] is TButton then
with TButton(F.Components[i]) do
case modalresult of
mryes : begin
width := 200;
Left := 75;
Top := 40;
caption := ´Faturamento &1´;
end;
mrno : begin
width := 200;
Left := 75;
Top := 70;
caption := ´Faturamento &2´;
end;
mrok : begin
width := 200;
Left := 75;
Top := 100;
caption := ´&Todos´;
end;

end;

F.Caption := ´Atenção!!!´;

{É possível, também, alteraro caption da janela}
F.Showmodal;

if F.ModalResult = IdYes then
Result:=´1´;

if F.ModalResult = IdNo then
Result:=´2´;

if F.ModalResult = IdOk then
Result:=´3´;


finally
F.free;
end;
end;

De uma olhada neste [url=http://japaratuba.infonet.com.br/meep/lloydsoft/modules/news/]Link[/url] eu não baixei o componente e muito menos vi funcionando, mas pelo o que diz deve de ser bom e se encaixa no que vc quer.