@Noit

вот нужные данные файла с требуемой процедурой, как вызвать процедуру procedure TLoadMediaThread.Execute?
type
TThreadManage = record
Created: TObject;
Enable: Boolean;
end;
//Type for Load Media in background
TLoadMediaThread = class(TThread)
protected
fBSLocal: TBaseSettings;
fBSServer: TBaseSettings;
MyConnectLocal: TMyConnection;
MyConnectServer: TMyConnection;
MyLocal: TAnQuery;
MyServer: TAnQuery;
public
ImagePathThread: string;
LoadMediaThread: TThreadManage;
property BSLocal: TBaseSettings read fBSLocal;
property BSServer: TBaseSettings read fBSServer;
constructor Create(CreateSuspended: Boolean);
procedure Execute; override;
procedure Terminate;
end;

procedure TLoadMediaThread.Execute;
var
ReConnectLocal: Boolean;
ReConnectServer: Boolean;
LogPath: string;
GZPath: string;
TemplateIDS: string;
MainIDS: string;
i: Integer;
ReklamaPath: string;
FilesArray: array of string;
F: TSearchRec;
ServerFileName: string;
FileFinded: Boolean;
j: Integer;
begin

LogPath := IncludeTrailingPathDelimiter(IncludeTrailingPathDelimiter(ExtractFilePath(Applic ation.ExeName)) + 'Logs');
GZPath := IncludeTrailingPathDelimiter(IncludeTrailingPathDelimiter(ExtractFilePath(Applic ation.ExeName)) + 'GZip');
ReklamaPath := ExtractFilePath(Application.ExeName) + IncludeTrailingPathDelimiter(ReadIni('Reklama', 'PicturePath'));
// Äîáàâëÿåì çàïèñü î çàïóñêå ïîòîêà îáíîâëåíèÿ ìåäèà
AddToLog(LogPath, GZPath, 'Error', '');
AddToLog(LogPath, GZPath, 'Error', 'LOADMEDIA - Çàïóñê ïîòîêà çàãðóçêè ìåäèà-ôàéëîâ');

// Âíåñåíèå íàñòðîåê ïîäêëþ÷åíèÿ
if ReadIni('Reklama', 'EnableDownLoad') = '1' then begin
LoadMediaThread.Created := TLoadMediaThread.Create(True);
LoadMediaThread.Enable := True;
with TLoadMediaThread(LoadMediaThread.Created) do begin
ImagePathThread := ReadIni('Reklama', 'PicturePath');
with MyConnectLocal do begin
Server := BSLocal.Server;
Port := BSLocal.Port;
Username := BSLocal.Username;
Password := BSLocal.Password;
Database := BSLocal.Database;
Options.Charset := BSLocal.Charset;
Options.Compress := BSLocal.Compress;
Options.Direct := BSLocal.Direct;
end;
with MyConnectServer do begin
Server := BSServer.Server;
Port := BSServer.Port;
Username := BSServer.Username;
Password := BSServer.Password;
Database := BSServer.Database;
Options.Charset := BSServer.Charset;
Options.Compress := BSServer.Compress;
Options.Direct := BSServer.Direct;
end;
TLoadMediaThread(LoadMediaThread.Created).Resume;
end;
end;

0