Guardar archivos en campos

[delphi.com.ar]

Supongo que algo similar a esto tiene que funcionar (No lo he probado)

var
  AStream : TFileStream;
begin
  AStream := TFileStream.Create('c:\MiArchivo.ext', fmOpenRead);
  Try
     TBlobField(ADataSet.FieldByName('CAMPO') ).LoadFromStream(AStream);
   finally
     AStream.Free;
   end;
end;

Saludos!