[delphi6][mssql] pliki binarne

Mam kawałek kodu:

procedure TForm1.Button2Click(Sender: TObject);
var
        plik:TFileStream;
        plik_czesc: TBlobByteData;
        lngOffset,rozmiar:Integer;
begin

plik:=TFileStream.Create('c:\img.jpg',fmOpenReadWrite);
 with AdoTAble1 do begin
      Open;
      Append;
      FieldByName('pub_id').AsInteger := 12;
      rozmiar := plik.Size;
      lngOffset := 0;
      while lngOffset<rozmiar do
      begin
          if rozmiar-lngOffset<1024 then
          plik.ReadBuffer(plik_czesc,rozmiar-lngOffset)
          else
          plik.ReadBuffer(plik_czesc,1024);

          TBlobField(FieldByName('logo')).SetData(@plik_czesc);

          lngOffset := lngOffset + 1024;
      end;


      Post;
  end;
   AdoTable1.Close;
end;

Czy może ktoś spojrzeć czemu wyskakuje mi błąd invalid variant type conversion :-[

dodam że pole 'logo' jest typu image

Z moich przemyśleń wynika, że błąd leży w typie plik_czesc ale nie wiem jaki powinien byc albo z czego na co go zrzutowac... bo i takie kombinacje robiłem...

Jeszcze na tym posiedzie ale bedę wdzięczny za pomysły...