一个程序用dede反编译过来的代码 希望有人帮我找下跳过它登陆的代码
object FormD: TFormD
  Left = 262
  Top = 189
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 光之国度F4
  ClientHeight = 411
  ClientWidth = 290
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Icon.Data = {  这里是一大堆16进制代码  }
  OldCreateOrder = False
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 4
    Top = -4
    Width = 425
    Height = 545
    TabOrder = 5
    object Label15: TLabel
      Left = 78
      Top = 342
      Width = 119
      Height = 19
      Cursor = crHandPoint
      AutoSize = False
      Caption = 点击进入论坛
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clActiveCaption
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = Label15Click
      OnMouseEnter = Label15MouseEnter
      OnMouseLeave = Label15MouseLeave
    end
    object Label9: TLabel
      Left = 23
      Top = 371
      Width = 258
      Height = 18
      Cursor = crHandPoint
      AutoSize = False
      Caption = 访问主页 : http://www.PlayF4.com 
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clActiveCaption
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = Label9Click
      OnMouseEnter = Label9MouseEnter
      OnMouseLeave = Label9MouseLeave
    end
    object RichEdit2: TRichEdit
      Left = -4
      Top = 116
      Width = 397
      Height = 205
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      Lines.Strings = (
        ''
        ''
         登陆成功
         进入游戏后F9呼出)
      ParentFont = False
      TabOrder = 2
    end
    object PageControl1: TPageControl
      Left = -4
      Top = 116
      Width = 293
      Height = 211
      ActivePage = TabSheet1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnChange = PageControl1Change
      object TabSheet1: TTabSheet
        Caption = 登陆
        object Label7: TLabel
          Left = 52
          Top = 121
          Width = 57
          Height = 13
          AutoSize = False
          Caption = 游戏帐号
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Image1: TImage
          Left = 39
          Top = 16
          Width = 202
          Height = 81
          Picture.Data = {  这里是一大堆16进制代码 }
          Stretch = True
        end
        object EditD1: TEdit
          Left = 109
          Top = 116
          Width = 106
          Height = 21
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          MaxLength = 30
          ParentFont = False
          TabOrder = 0
          OnChange = EditD1Change
        end
        object ButtonD: TButton
          Left = 106
          Top = 144
          Width = 71
          Height = 27
          Caption = 登陆
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 1
          OnClick = ButtonDClick
        end
      end