Translate

var
   s: string;
begin
   s := 'Your message';
   Translate('This_Field_is_required', s);

Open_report_designer
Your_computer_does_not_have_Excel
Entry_to_edit_is_no_selected
Unable_to_determine_the_record_ID
Please_select_record_in_grid
Report_file_not_found
Entry_to_be_deleted_is_not_selected
Are_you_sure_you_want_to_delete_the_record
The_database_file_is_not_found
Not_a_number
Are_you_sure_you_want_to_delete_the_image_from_the_database
There_is_no_file_to_save
Do_you_really_want_to_delete_the_file_from_the_database
Restart_the_program_to_apply_the_settings
This_Field_is_required
Not_permitted_to_use_ComboBox_for_saving_record
Saving_or_opening_file_from_database
Select_file_stored_in_database
Export_image_from_database
Open_image_to_save_the_database
Delete_Image
Calculated_field
Counter_field
Open_file
Save_file
Delete_file
Open_folder_with_file
Clear
Open
Component
No_data_to_add
File_not_found
Confirm
Error
Info
Yes
No

// локализация сообщения при авторизации.
procedure Login_OnClick( Sender:TObject; var Cancel:boolean );
// обработчик нажатия новой кнопки
var
  tmpMD5: string;
  tmpUsername: string;
  // так как у комбобокса нет имени, то найти его можно только полным перебором компонентов
  function GetCombo: TdbComboBox;
  //
  var
    i: integer;
  begin
    for i := 0 to frmdbCoreLogin.componentCount - 1 do
    begin
      if frmdbCoreLogin.Components[i] is TdbCombobox then
      begin
        Result := TdbCombobox( frmdbCoreLogin.Components[i] );
        exit;
      end;
    end;
  end;
begin
  // в зависимости от режима ввода логин находится в поле ввода
  if frmdbCoreLogin.edLogin.Visible then
    tmpUsername := frmdbCoreLogin.edLogin.Text
  else // или в выпадающем списке
    tmpUsername := GetCombo.Text;
  // вычисляем код, хранящийся в базе
  tmpMD5 := StrToMD5( frmdbCoreLogin.edPassword.Text + tmpUserName );
  // если соотвествующей записи в базе нет, то
  if SQLExecute('SELECT count(*) FROM _user WHERE username = "'+tmpUserName+'" AND password = "'+tmpMD5+'" ') = 0 then
    // выдаем наше локализованное сообщение
    // то, из-за чего весь сыр-бор и состоялся ))))
    MessageBox('Что-то пошло не так...','Ошибка', MB_ICONWARNING + MB_OK )
  else // если все нормально, то
  begin // нажимаем стандартную кнопку логина
   SendMessage( frmdbCoreLogin.bLogin.handle , wm_LButtonDown, 0, 0);
   sleep(100);
   SendMessage( frmdbCoreLogin.bLogin.handle , wm_LButtonUp, 0, 0);
 end;
end;

procedure Init;
var
  tmpLoginButton: TdbButton;
begin
  // создаем новую кнопу
  tmpLoginButton := TdbButton.Create( frmdbCoreLogin );
  tmpLoginButton.Parent := frmdbCoreLogin;
  // размещаем на месте стандартной
  tmpLoginButton.Top := frmdbCoreLogin.bLogin.Top;
  tmpLoginButton.Left := frmdbCoreLogin.bLogin.Left;
  tmpLoginButton.Width := frmdbCoreLogin.bLogin.Width;
  tmpLoginButton.Height := frmdbCoreLogin.bLogin.Height;
  tmpLoginButton.Caption := frmdbCoreLogin.bLogin.Caption;
  tmpLoginButton.Font := frmdbCoreLogin.bLogin.Font;
  // теперь новая кнопка будет срабатывать от Enter
  tmpLoginButton.Default := True;
  // назначаем обработчик
  tmpLoginButton.OnClick := 'Login_OnClick';
  // старую кнопку прячем
  frmdbCoreLogin.bLogin.Visible := False;
end;

begin
  Init;
end.

...
MessageBox('Verkeerde naam/wachtwoord','Fout', MB_ICONWARNING + MB_OK )
...