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','');
        tuser:=  fini.ReadString(sections[i],'user','');
        memo1.Lines.Add(tpath1);
        memo1.Lines.Add(tpath2);
        memo1.Lines.Add(tkind);
         memo1.Lines.Add(tlog);
         memo1.Lines.Add(texe);
         memo1.Lines.Add(tuser);
        MyThread:= TMyThread.Create(True,tpath1,tpath2,tkind,tlog,texe,tuser);
        fini.free;
      end;

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
    Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, wlog, IBDatabase, IBQuery;

type

    { TMyThread }

    TMyThread = class(TThread)
    private
        FSomeVar: string;
        FIB: TIBDataBase;
        FTrans: TIBTransaction;
        FQuery: TIBQuery;
        procedure CreateConnection;
        procedure CloseConnection;
    public
        constructor Create(const ASomeVar: string);
        destructor Destroy; override;
        procedure Execute; override;
        property SomeVar: string read FSomeVar;
    end;

    TForm1 = class(TForm)
    private

    public

    end;

var
    Form1: TForm1;

implementation

{$R *.lfm}

{ TMyThread }

procedure TMyThread.CreateConnection;
begin
    // подключаемся, настраиваем транзакцию и т.п
    // логируем через wlog
    PostToLog('Create connection');
end;

procedure TMyThread.CloseConnection;
begin
    // закрываем соединение
    PostToLog('Close connection');
end;

constructor TMyThread.Create(const ASomeVar: string);
begin
    FSomeVar := ASomeVar;
    CreateConnection;
end;

destructor TMyThread.Destroy;
begin
    CloseConnection;
    inherited Destroy;
end;

procedure TMyThread.Execute;
begin
    PostToLog(Format('%d Start execute', [Handle]));
    // делаем что нужно
    PostToLog(Format('%d End execute', [Handle]));
end;

end.