MySQLQuery.SQL.Text := 'INSERT INTO docs (sid, name, ext, data) VALUES (:SID,:NAME,:EXT,:DATA)';
    MySQLQuery.ParamByName('SID').AsInteger := t.sid;
    MySQLQuery.ParamByName('NAME').AsString := t.name;
    MySQLQuery.ParamByName('EXT').AsString := t.ext;
    SetLength( t.data, m.Size );
    Move( m.Memory^, t.data[0], m.Size );
    MySQLQuery.ParamByName('DATA').AsBlob := t.data;
    if MySQLQuery.ExecSQL() = 1 then
    begin
        MySQLQuery.SQL.Text := 'SELECT LAST_INSERT_ID() as ID';
        MySQLQuery.Open;
        if not MySQLQuery.Eof then
        begin
          t.id := MySQLQuery.Fields[0].AsInteger; // всегда 0!
          lbViewFiles.AddItem( t.name+'.'+t.ext, t );
          t := nil;
        end;
    end;