FormCreate отказывается работать с глобальными переменными типа string

procedure TForm1.FormCreate(Sender: TObject);
 var net: TextFile;
begin
 if FileExists('param.txt') = true then
  begin
   CheckBox2.Checked:=True;
   Assignfile(net, 'param.txt');
   reset(net);
   readln(net, Edit1.Text);
   readln(net, Edit2.Text);
   readln(net, p);
   readln(net, a);
   closefile(net);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
 var net: TextFile;
begin
 if FileExists('param.txt') = true then
  begin
   CheckBox2.Checked:=True;
   Assignfile(net, 'param.txt');
   reset(net);
   readln(net, s);
   Edit1.Text:=s;
   readln(net, s);
   Edit2.Text:=s;
   readln(net, p);
   readln(net, a);
   closefile(net);
  end;
end;

var
  Form1: TForm1;
  a : string;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
var f : TextFile;
begin
 AssignFile(f, 'd:\tmp\in.txt');
 Reset(f);
 readln(f, a);
 CloseFile(f);
 Label1.Caption := a;
end;

var
  Form1: TForm1;
  name, pass, b, d, s: string;
  p, x, a: integer;
 
implementation
 
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
 var net: TextFile;
begin
 if FileExists('param.txt') = true then
  begin
   CheckBox2.Checked:=True;
   Assignfile(net, 'param.txt');
   reset(net);
   readln(net, Edit1.Text); //строка 279
   readln(net, Edit2.Text);
   readln(net, p);
   readln(net, a);
   closefile(net);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var L : TStringList;
begin
 if FileExists('param.txt') 
  then begin
          CheckBox2.Checked:=True;
          L := TStringList.Create;
          L.LoadFromFile('param.txt');
          Edit1.Text := L.Strings[0];
          Edit2.Text := L.Strings[1];
          ...
          L.Free;
        end;
end;

procedure TForm1.FormCreate(Sender: TObject);
 var   b: string;
       L: TStringList;
begin
 if FileExists('param.txt') = true then
  begin
   CheckBox2.Checked:=True;
   L := TStringList.Create;
   L.LoadFromFile('param.txt');
   Edit1.Text := L.Strings[0];
   Edit2.Text := L.Strings[1];
   p := strtoint(L.Strings[2]);
   a := strtoint(L.Strings[3]);
   L.Free;
  end;
end;