var sl: TStringList;begin sl:=TStringList.Create(); try sl.Text:=Query.Fields['blob_field_name'].AsString; sl.SaveToFile(FileName); finally FreeAndNil(sl); end;