procedure TForm5.Button1Click(Sender: TObject);
var str:Tmemorystream;
begin
IF not ADOQUERY2.IsEmpty Then
Begin
str:=Tmemorystream.Create; str.Position:=0;
Tblobfield(adoquery2.FieldByName('image')).savetostream(str);
str.SaveToFile(ExtractFilePath(Application.ExeName)+'image\cai.jpg');
str.Free;
end;