[lmikle]

Ну можено парсить обратно. Но я бы просто создал бы объектики и привязал их к итемам листбокса (через AddObject).

Код:

type
  TFileItemData = class
    FileName : String;
    Atrib : String;
    Size : Integer;
    id : Integer;
    rews:Integer;
    function toString : String;
  end;

function TFileItemData.toString : String
begin
  Format('id: %d; File: %s; Size: %d; Reviews: %d; Attribute: %s',[id,FileName,Size,rews,Atrib]);
end;

тогда заполнение:

Код:

procedure TForm1.AddToMemoCb(AFileName,Atrib:String; ASize,Aid,Arews:Integer);
var
  obj : TFileItemData;
begin
  obj := TFileItemData.Create;
  obj.id = aid;
  obj.FileName := AFileName;
  obj.Size := ASize;
  obj.rews := Arews;
  obj.Atrib := Atrib;
  listbox1.Items.AddObject(obj.toString,obj);
end;

Ну и передача:

Код:

obj := ListBox1.Items.Objects[0]; // Здесь индекс элемента
AddToDbCb(obj.FileName,obj.Atrib, obj.Size, obj.id, obj.rews);

Только чистить объекты не забывай когда удаляешь элементы из листбокса.