procedure TForm1.FormCreate(Sender: TObject);
var List1: TStringList;
    t: integer;
    n: string;
    ConfigIni: tinifile;
begin
List1 := TStringList.Create;
List1.LoadFromFile('c:\S-Market\CalcPart.log');
for t := List1.count - 1 downto 0 do
  begin
  Memo1.Lines.Add(inttostr(t) + ' ' + List1.Strings[t]);
  if pos('Партионный учёт успешно пересчитан:', List1.Strings[t]) <> 0 then
    begin
    Memo2.Lines.Add(List1.Strings[t]);
    n := copy(List1.Strings[t], pos('252', List1.Strings[t]), 6);
    label1.Caption := trim(n);
    label2.Caption := inttostr(length(n));
    end
  else
    begin
    Memo1.Lines.Add(inttostr(t) + ' ' + List1.Strings[t]);
    if pos('fmMainForm.pfCalcPart:', List1.Strings[t]) <> 0 then
      begin
      Memo2.Lines.Add(List1.Strings[t]);
      Memo2.Lines.Add(List1.Strings[t - 1]);
      n := copy(List1.Strings[t - 1], pos('l=', List1.Strings[t - 1]) + 2, 6);
      label1.Caption := trim(n);
      label2.Caption := inttostr(length(n));
      ConfigIni := TIniFile.Create('c:\S-Market\CalcPart.ini');
      ConfigIni.WriteString('TfmMainForm', 'edFirstArticul_Text', n);
      ConfigIni.WriteString('TfmMainForm', 'chbFirstArticul_Checked', 'True');
      ConfigIni.Free;
      end;
    end;
  end;
end;