как сделать окно "Совет дня.."

[Alex Defsen]

Чтобы не повторялись советы - надо список просмотренных
А вообще Random - плохой вариант для генерации.

По второму случаю ничего сказать не могу.

[Человек_Борща]

Вот в общем моя реализация если кому интересно для BalmSoft Polyglot transtator

const
  TipsFileFormat = '%s.tips.lng';
  DefLang = 'Russian.tips.lng';

var
  TipsList: TStringList;

{$R *.dfm}

function GetTipsFileName: string;
var
  LangFile: string;
begin
  //получаем папку локализаций
  LangFile := HLR_GetLanguagesDir + '\' + Format(TipsFileFormat, [MainForm.LangManager.CurrentLang]);
  if FileExists(LangFile) then  //если найден файл с текущим языком
  begin
    Result := LangFile;
  end
  else
  begin
    Result := DefLang;  //иначе файл по "дефолту".
  end;
end;

procedure TTipsForm.FormCreate(Sender: TObject);
var
  i: SmallInt;
  lTipsList: string;
begin
  i:=0;
  TipsList := TStringList.Create;
  lTipsList := GetTipsFileName;
  if FileExists(lTipsList) then //проверяем существует ли файл
  begin
    TipsList.LoadFromFile(lTipsList);  //грузим
      if i <= TipsList.Count then  //проверяем пуст ли файл
      begin
        GetMeTipBtn.Enabled := False;   //отключаем кнопку
      end
      else
        exit;
   end
  else
  begin
    //если файла не существует(независимо от языка)
    GetMeTipBtn.Enabled := False;
  end;
end;