怎样向数据库中写入ico文件，并读取（看我的代码有什么问题）？

Question

procedure TForm1.Button1Click(Sender: TObject);
var
 pictureSource:TFileStream;
 FileSource : Tstream;begin ADOTable1.Edit;
 Picturesource:=TFilestream.create('.\image\770ft.bmp',fmopenread);//如果这里是bmp一切ok，如果是ico,jpg,gif文件就报错‘Bitmap image is invalid’这是什么原因啊?
 TBlobField(ADOTable1.FieldByName('image1')).LoadFromStream(picturesource);
 ADOTable1.post;
FileSource:=ADOTable1.CreateBlobStream(ADOTable1.FieldByName('image1'),bmread );
image1.Picture.Bitmap.LoadFromStream(filesource);
filesource.Free;
Picturesource.Free ; 
我的表中只有一个image类型的‘image1'的字段

Answer 1

改为
image1.Picture.Icon.LoadFromStream(filesource);