image to save database

Procedure SaveImageToDB(FileName : String);
var tmpGraphic : TGraphic;
tmpBMP : TBitmap;
ExtFile : String;
begin
if FileExists(FileName) then
begin
ExtFile := LowerCase(ExtractFileExt(FileName));

Try
if ExtFile = '.jpg' then
tmpGraphic := TJpegimage.Create
else
if ExtFile = '.gif' then
tmpGraphic := TGIFImage.Create
else
if ExtFile = '.png' then
tmpGraphic := TPngImage.Create
else
tmpGraphic := TBitmap.Create;

// Loadfromfile
tmpGraphic.LoadFromFile(FileName);

tmpBMP := TBitmap.Create;
tmpBMP.Assign( tmpGraphic );

// Assign To BlobField ส่งให้ Blob ตรงๆ
TBLobfield(fDataLink.Dataset.FieldByName(FDatalink.FieldName)).Assign(tmpBMP);

// Assign To DBImage ส่งให้ DBImage ไม่ต้องการ tmpBMP
//DBImage_Display.Picture.Bitmap.Assign(tmpGraphic) ;

Finally

FreeAndNil(tmpGraphic);
FreeAndNil(tmpBMP);
End;
end;
end;