if Clipboard.HasFormat(PredefinedClipboardFormat(pcfBitmap)) then
form1.imOrgLogo.Picture.Bitmap.LoadFromClipboardFormat(PredefinedClipboardFormat(pcfBitmap));
ms := TMemoryStream.Create;
form1.imOrgLogo.Picture.Bitmap.SaveToStream (ms);
ms.Position:=0;
intCurrentRecord:=form1.SQLQuery1.FieldValues['ID'];
form1.SQLQuery7.SQL.Text := 'update maindata set org_logo = :org_logo where id = :ID';
form1.SQLQuery7.Params.ParamByName('id').Value:=intCurrentRecord;
form1.SQLQuery7.Params.ParamByName('org_logo').LoadFromStream (ms,ftBlob);
form1.SQLQuery7.ExecSQL;
form1.SQLTransaction1.CommitRetaining;
form1.SQLQuery1.Refresh;
form1.SQLQuery1.Locate ('ID',intCurrentRecord,[]);