提问：在FormCreate，formshow 时可不可以中途退出程序

procedure TForm_yhdl.FormCreate(Sender: TObject);
var s:string;
    regf:Tregistry;
begin
    regf:=Tregistry.Create;
    regf.RootKey:=HKEY_CURRENT_USER;
    if regf.OpenKey('dcthm',false) then
    begin
    if regf.ReadString('dcthm')<>'dcthm' then
    exit;//在这里要终止程序地运行，应该怎么写，这个窗体是程序初始化的登陆窗体。
    regf.CloseKey;
    end
    else
    exit;
    clo:=true;

end;