TOPIC:

procedure TMainForm.InsertDbClick(Sender: TObject);
var  fStream:TFileStream;
begin
  with OpenFiles do
  if Execute then begin
  fStream:=TFileStream.Create(FileName,fmOpenRead);
  try
  DBA.FieldDefs.Add('Image',ftBlob,fStream.Size,true);
  TBlobField(DBA.FieldByName('Image')).
          LoadFromFile(FileName);

  finally
    fStream.Free;
  end;
  DBA.Post;
  end;
end;