Bmp to Emf Convert

****** BMP TO EMF CONVERT
Bitmap'i (.bmp) Windows ****file'a (.Emf') çevirme :
procedure ConvertBMP2EMF (AImage: TImage; FileName: String);
var
Emf : T****file;
EmfCanvas: T****fileCanvas;
begin
Emf := T****file.Create;
try
//Must set width + Height before creating the canvas
Emf.Width := AImage.Picture.Bitmap.Width;
Emf.Height := AImage.Picture.Bitmap.Height;
EmfCanvas := T****fileCanvas.Create(Wmf, 0);
try
EmfCanvas.Draw(0,0,AImage.Picture.Bitmap);
finally
EmfCanvas.Free;
end;
Emf.SaveToFile(FileName);
finally
Emf.Free;
end;
end;