Traduzir botões

  //Acessar o arquivo => C:\lazarus\lcl\lclstrconsts.pas
  rsMbYes          = '&Sim';
  rsMbNo           = '&Não';
  rsMbOK           = '&OK';
  rsMbCancel       = 'Cancelar';
  rsMbAbort        = 'Abortar';
  rsMbRetry        = '&Retry';
  rsMbIgnore       = '&Ignorar';
  rsMbAll          = '&Todos';
  rsMbNoToAll      = 'Não para Todos';
  rsMbYesToAll     = 'Sim para &Todos';
  rsMbHelp         = '&Ajuda';
  rsMbClose        = '&Fechar';
  rsmbOpen         = '&Abrir';
  rsmbSave         = '&Salvar';
  rsmbUnlock       = '&Desbloquear';
  rsMtWarning      = 'Atenção';
  rsMtError        = 'Erro';
  rsMtInformation  = 'Informação';
  rsMtConfirmation = 'Confirmação';
  rsMtAuthentication = 'Autenticação';
  rsMtCustom       = 'Personalizado';

  //Outra forma mais simples e que não precisa fazer toda vez que reinstala o Lazarus é declarar Translations em uses colocar a linha abaixo no FormCreate do Form principal.
  TranslateUnitResourceStrings('LclStrConsts','C:\lazarus\lcl\languages\lclstrconsts.pt_BR.po');