[leon2009]

Код:

TMyThread = class(TThread)
    SQLConnection1: TSQLConnection;
    SQLTable1: TSQLTable;
    DataSetProvider1: TDataSetProvider;
    ClientDataSet1: TClientDataSet;
    DataSource1: TDataSource;
    SQLQuery1: TSQLQuery;
    Memo1: TMemo;
	    private
	        { Private declarations }
	    protected
	        procedure Execute; override;
          procedure AddToDbCb(AFileName: String; ASize: Integer);
	    end;

Код:

procedure TMyThread.AddToDbCb(AFileName:String; ASize: Integer);
begin
SqlConnection1.Open;
try

  SqlQuery1.SQL.Text := 'INSERT INTO test1 (id, name, reviews, size, attribute) VALUES (:id, :name, :reviews, :size, :attribute)';

  SqlQuery1.ParamByName('id').AsInteger := 1;
  SqlQuery1.ParamByName('name').AsString := AFileName;
  SqlQuery1.ParamByName('reviews').AsInteger := random(5);// Arews;
  SqlQuery1.ParamByName('size').AsInteger := ASize; //inttostr(imgsize);
  SqlQuery1.ParamByName('attribute').AsString := 'gggggg';
  SQLQuery1.ExecSQL;
  Memo1.Lines.Add('Запись_добавлена='+Afilename+inttostr(ASize));
finally
SqlConnection1.Close;
end;
end;

а тут столкнулся

Код:

procedure TForm1.Button3Click(Sender: TObject);
var
  obj : TFileItemData; i:integer;
begin

  if ListBox2.Count =14 then
    begin
    for i := 0 to  ListBox2.Count-1 do  begin
      obj := ListBox2.Items.Objects[i] As TFileItemData;
      TMyThread.AddToDbCb(obj.AFileName,obj.ASize);
      progressbar1.Position:=i;
    end;
end;
end;

Код:

TMyThread.AddToDbCb(obj.AFileName,obj.ASize);

так? а чтобы не ругался на TMyThread.AddToDbCb(obj.AFileName,obj.ASize) сделать отдельные функции?