procedure TfrmBmp.btnLoadFileClick(Sender: TObject);
begin
with OpenBmpDlg do begin
InitialDir := ExtractFilePath(
Application.ExeName + gFileDir);
if not Execute then Exit;
end;// table name is cdsBlob and in DataModule: dmMain
if dmMain.cdsBlob.State = dsBrowse then
dmMain.cdsBlob.Edit; //Image save in field:Binary_Data
dmMain.cdsBlob.TBlobField(FieldByName('Binary_Data'
)).LoadFromFile(OpenBmpDlg.FileName;
end;
