ADO Blobfield Was mach ich falsch?

[WS1976]

Hallo,
hab ein Stück Code geschrieben um Icons in eine Acces 2003 Datenbank zu schreiben. (ADOconnection, ADOtable. mytable ist ADOtable)
Sieht alles OK aus kommt aber nie in Access an, bzw wenn ich auslesen will, wird immer das Ergebnis 0 Bytes zurückgegeben.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  blobF : TBlobField;
  bs : TStream;
  f:file of Timg;
  numread,numwritten:integer;
  data:array[1..1000] of char;
begin
   assignfile(f,'1315.ico');
   reset(f);
     BlockRead(f, data, filesize(f), NumRead);
   closefile(f);
   mytable.Active:=true;
   myTable.Insert;
   myTable.FieldByName('name').AsString:='1315_a.ico';
   blobF := myTable.FieldByName('Picture') as TBlobField;
   bs := myTable.CreateBlobStream(blobF, bmWrite);
   numwritten:=bs.Write(data,NumRead);
   myTable.Post;
end;

kann mir irgendjemand auf die Sprünge helfen?
Danke im Vorraus