MessageDlg

Rafaela, vc pode utilizar a função abaixo:

Function CaixaDeMensagens(Const Titulo: String; Mensagem: String; Tipo: TMsgDlgType;
Botoes: TMsgDlgButtons): Word;
Var
i: Integer;
begin
With CreateMessageDialog(Mensagem, Tipo, Botoes) do
Try
Caption:= Titulo;
For i:= 0 to ComponentCount - 1 do Begin
With TButton(Components[i]) do
Case ModalResult of
mrYes: Caption:= ´Sim´;
mrNo: Caption:= ´Não´;
mrCancel: Caption:= ´Cancelar´;
mrAbort: Caption:= ´Abortar´;
mrRetry: Caption:= ´Novamente´;
mrIgnore: Caption:= ´Ignorar´;
mrAll: Caption:= ´Todos´;
End;
End;
Result:= ShowModal;
Finally
Free;
End;

Vc usa o application.messagebox


é bem + fácil e além do mais fica em português


t+

Use o Application.MessageBox()

Ex.
if
Application.MessageBox(´Deseja Excluir Permanetemente o Registro?´,´Cuidado!´,MB_YESNO+MB_ICONWARNING+MB_DEFBUTTON2) = idyes then
comandos...

É muito mais facil vc pegar os arquivos de tradução tem no site
http://www.delphibr.com.br/index.php para o delphi 5 , 6 e 7 todos funcionão mutio bem e traduz varias outras coisas


Um abraço