PTKResolution example for Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
   { Set new PTK option }
   LEAdImage1.PTKResolution:= 120;

   { Now load the PTK file }
   LEADImage1.Load( 'c:\Image1.ptk', 0, 1, 1 );
end;