procedure TForm1.Button1Click(Sender: TObject);
var
    i: integer;
    fini: TIniFile;
    sections: TStringList;
    tpath1
    ,tpath2
    ,tpath3
    , tkind
    , tlog
    , texe: string;
    MyThread: TMyThread;
begin
    memo1.Lines.Clear;
    sections := TStringList.Create;
    try
      fini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'init.ini');
      tpath3 := ExtractFilepath(Application.ExeName);
      fini.ReadSections(sections);
      //ïðîõîäèì ïî íàñòðîéêàì, ïîëó÷àåì ïóòè
      for i:= 0 to pred(sections.Count) do
      begin
        tpath1:=  fini.ReadString(sections[i],'source','');
        tpath2:=  fini.ReadString(sections[i],'target','');
        tkind:=  fini.ReadString(sections[i],'kind','');
        tlog:=  fini.ReadString(sections[i],'log','');
        texe:=  fini.ReadString(sections[i],'exe','');
        memo1.Lines.Add(tpath1);
        memo1.Lines.Add(tpath2);
        memo1.Lines.Add(tkind);
         memo1.Lines.Add(tlog);
         memo1.Lines.Add(texe);
        MyThread:= TMyThread.Create(True,tpath1,tpath2,tkind,tlog,texe);
      end;
    finally
      FreeAndNil(sections);
    end;
end;