[AlexSku]

Вот один из способов. У меня русифицированная Windows. И если вызвать функцию MessageBox, то названия будут по-русски.

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.MessageBox('Text', 'Caption', MB_YESNOCANCEL);
end;