// Sample source to call RADISSUPTO.EXE 
// uses Forms,ShellAPI,Windows

procedure CallRADISSUPTO;
var
 s,s1,s2,s3:shortstring;
 ps,ps1,os2,ps3:PChar;
 handle:THandle;

begin
 handle:=Application.Handle;
 s:='open'#0;
 s1:='RADISSUPTO.EXE';
 s2:='P:\SUPTO FN:FP_10034.TXT';
 s3:='\SUPTO';
 ps:=@s[1];
 if s1<>'' then begin s1:=s1+#0;ps1:=@s1[1];end else ps1:=nil;
 if s2<>'' then begin s2:=s2+#0;ps2:=@s2[1];end else ps2:=nil;
 if s3<>'' then begin s3:=s3+#0;ps3:=@s3[1];end else ps3:=nil;
 ec:=ShellExecute(handle,ps,ps1,ps2,ps3,0);
 if (ec<33) then {this is error};
end;