oform1=NEWOBJECT("form1")
oform1.SHOW
CLEAR CLASS form1
RETURN

DEFINE CLASS form1 AS FORM
    DATASESSION = 1
    DESKTOP = .T.
    SHOWWINDOW = 0
    DOCREATE = .T.
    AUTOCENTER = .T.
    BORDERSTYLE = 3
    Height = 700
    Width = 1200
    WINDOWTYPE = 0
    WINDOWSTATE = 0
    WindowType = 1
    NAME = "FORM1"

	 ADD OBJECT cmd_Exit AS Commandbutton WITH ;  
	 Autosize= .T.,;
     Caption = "Âûõîä",;
     FONTSIZE= 14,;
     FONTNAME="Courier New",;
     Top = 630,;
     Left = 900
     
     PROCEDURE cmd_Exit.Click
     thisform.release 
     ENDPROC && cmd_Exit

    PROCEDURE KeyPress

    LPARAMETERS nKeyCode, nShiftAltCtrl
      IF LASTKEY()=27
         cmd_Exit.Click  &&<----- Как надо правильно написать?
      endif
	ENDPROC

ENDDEFINE