procedure TForm7.FormShow(Sender: TObject);
    icon:TIcon;
    stream:TMemoryStream;                
begin
    icon:=TIcon.Create;
    stream:=TMemoryStream;                   -----75
    begin
       TBlobField(form3.adoquery1.FieldByName('picture')).SaveToStream(stream);                                    -----77
       stream.Position:=0;
       icon.LoadFromStream(stream);
       image1.Picture.Assign(icon);
     end;
end;出现的错误:[Error] friendinfo.pas(75): Incompatible types: 'TMemoryStream' and 'Class reference'
[Error] friendinfo.pas(77): Undeclared identifier: 'TBlobField'
[Error] friendinfo.pas(77): Missing operator or semicolon
[Fatal Error] AddressBook.dpr(11): Could not compile used unit 'friendinfo.pas'