[leon2009]

Код:

procedure TForm1.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;    
//Application.ProcessMessages;
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;
      AddToDbCb(obj.AFileName,obj.ASize);
      progressbar1.Position:=i;
    end;
end;
end;

так? = это жесть