Delphi dicas

Traduzindo a mensagem delete record?

Procedure TForm1.TableBeforeDelete(DataSet:TDataSet);

Begin

        if MessageDlg('Eliminar o registro?,mtConfirmation.[mbYes,mbNo],0)<>mrYes then Abort;

end;