var Stream: TStream; lpBuffer: Pointer;
begin
...
Image1.Picture.Bitmap.SaveToStream(Stream);
GetMem(lpBuffer Stream.Size);
Stream.Write(lpBuffer^, Stream.Size)
ADOQuery1.FieldByName('foto').SetData(lpBuffer);
ADOQuery1.FieldByName('foto').DataSize = Stream.Size;
...
end;