フォームが作られたら終了するプログラム
procedure TForm1.FormCreate(Sender: TObject);
begin
close;
end;