WMFResolutionX example for Delphi

//This example displays the default resolution stored in a WMF, 
//changes the resolution to 150 dpi, and then loads the image
procedure TForm1.LoadWMFClick(Sender: TObject); 
var
   fileName: String; 
begin
   fileName:= 'test.wmf'; 
   //Display resolution stored in WMF
   LEADImage1.GetFileInfo(fileName, 0); 
   ShowMessage('InfoXRes: ' + IntToStr(LEADImage1.InfoXRes) + #13 + 'InfoYRes: ' + IntToStr(LEADImage1.InfoYRes)); 
   // Set resolution so WMF is loaded at 150 dpi
   LEADImage1.WMFResolutionX:= 150; 
   LEADImage1.WMFResolutionY:= 150; 
   LEADImage1.Load(fileName, 0, 0, 1); 
end;