AnsiString __fastcall LoadStringFromFile(AnsiString FileName, int StringNo)
{
  AnsiString Result;
  TStringList* Strings=new TStringList;
  try
  {
    Strings->LoadFromFile(FileName);
    Result=Strings->Strings[StringNo];
  }catch(...){}
  delete Strings;
  return Result;
}