在paradox中存储jpeg。
Uses Jpeg Var 
jpg: TJpegImage; 
stream: TStream; 
begin 
jpg := TJpegImage.Create; 
stream := TMemoryStream.Create; 
jpg.SaveToStream(stream); 
stream.position := 0; 
Table1.Open; 
Table1.Append; 
Try 
  Table1.FieldbyName(FieldName).LoadFromStream(stream); 
Except 
  Table1.Cancel; // You don't want dud records do you? 
end; {Try...Except} 
if (Table1.State = dsInsert) or (Table1.State = dsEdit) then 
  Table1.Post; //Save the record 
end; 
//取出,显示
Var 
jpg: TJpegImage; 
stream: TStream; 
begin 
jpg := TJpegImage.Create; 
stream := TMemoryStream.Create; 
Table1.FieldbyName(FieldName).SaveToStream(stream);//存jpeg字段 
stream.position := 0; 
jpg.LoadFromStream(stream); 
Image1.Picture.Graphic := jpg; 
end;