procedure TForm1.BitBtn2Click(Sender: TObject);
Var
Ms:TStringStream;
jpg:Tjpegimage;
begin
Ms:=TstringStream.Create('');
jpg:=tjpegimage.Create;
TBlobField(ADOquery1.FieldByName('photo')).SaveToStream(Ms);
Ms.Position :=0;
Jpg.LoadFromStream(Ms);
Image2.Picture.Assign(Jpg);
Ms.Free;
jpg.free;
end;
end.
