Delphi - Terminar mi aplicación

Hola estoy aprendiendo a programar en delphi y tengo una version viejisima es la version 2 ahora bien estoy usando este programa para ejecutar otro hecho con visual basic, pero deseo que compruebe que existan las librerias de visual para correr el programa y despues de eso llame al programa en caso de que si existan las librerias y si no que llame a el otro programa que es el que las va a instalar las librerias y despues de eso se termine el programa y se cierre que es lo que no se como hacer

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ShellApi;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
ruta: String;
implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
ruta := ExtractFilePath(Application.ExeName);
{label1.caption := ExtractFilePath(Application.ExeName); la ruta de
mi archivo exe}
if FileExists('c:\windows\system\Vb6stkit.dll') then
ShellExecute(Handle,nil,PChar(ruta + 'view1.exe'),'','',SW_SHOWMAXIMIZED)

{AQUI DEVERIA TERMINARSE EL PROGRAMA}
else
ShellExecute(Handle,nil,PChar(ruta + 'view2.exe'),'','',SW_SHOWNA);
{ O AQUI DEVE TERMINARSE EL PROGRAMA}
end;

end.

Application.Terminate;