实例变量在这不能被存取 是什么意思？ 这程序 怎么解决？

Question

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,InvokeRegistry, DB, DBClient, ExtCtrls;type
  TLoginDlg = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    btnOK: TButton;
    btnCancle: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure btnOKClick(Sender: TObject);  private
    { Private declarations }
  public
    { Public declarations }
    class function VerifyAccount:Boolean;
    class function Execute:Boolean;
  end;var
  LoginDlg: TLoginDlg;
  
implementation{$R *.dfm}
class function TLoginDlg.Execute:Boolean;
begin
with LoginDlg.Create(nil)do
try
Result :=ShowModal=mrOK;
finally
Free;
end;
end;class function TLoginDlg.VerifyAccount:Boolean;
 var
 TextFilevar:TextFile;
 sUserName,sPassword,sLine:String;
 begin
 Result :=False;
 AssignFile(TextFileVar,'F:\lianxi\user.txt');
 Reset(TextFilevar);
 while not Eof(TextFilevar)do
 begin
 ReadLn(TextFileVar,sLine);
 sUserName :=Copy(sLine, 0, Pos('=', sLine)-1);
 sPassword :=Copy(sLine,Pos('=',sLine)+1,MaxInt);
 //账号不区分大小写，密码区分大小写
 if SameText(sUserName, Edit1.Text) and  (sPassword =Edit2.Text) then
 begin
ModalResult :=mrOk;
 Break;
 end;
 end;
 CloseFile(TextFileVar);
  Result := ModalResult = mrOk;
end;
procedure TLoginDlg.btnOKClick(Sender: TObject);
begin
  if not VerifyAccount then
  ShowMessage('账号或密码错误，请重新输入');
end;end.
[Error] Unit1.pas(57): Instance variable 'Edit1' inaccessible here
[Error] Unit1.pas(57): Instance variable 'Edit2' inaccessible here

Answer 1

class function Execute:Boolean; class function中,不能使用实例中的变量，因为class function可以在实例还没被创建时调用，如TLoginDlg.VerifyAccount。