// uses section for GUI application:
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImageMagickObject_TLB, activeX, StdCtrls;



// Example procedure using COM object 
procedure Test;
var
  v : Variant;
 im : TMagickImage;
begin

  im := TMagickImage.Create(nil);
  try

   v := VarArrayCreate([0, 3], varVariant);
   v[0] := 'logo:';

 // rotation example
 //  v[1] := '-rotate';
 //  v[2] := '10';


 // crop example - crop to 94x103 starting at 30, 25
 //  v[1] := '-crop';
 //  v[2] := '94x103+30+25';


 // resize example - set width = 150 (will keep aspect ratio)
    v[1] := '-resize';
    v[2] := '150';

 // output filename
   v[3] := 'logo2.jpg';

 // execution 
   im.Convert(PSafeArray(TVarData(v).VArray));

  finally
   im.Free;
  end; 

end;

//delphi/8992