1:

     Readln(user , UserR.PassW);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure TForm4.Button2Click(Sender: TObject);
var
 i : integer;

begin

   UserR.Name := Edit1.text;
   UserR.PassW := Edit2.text;

   Assignfile(User,'users.txt');
   reset(User);
   append(User);
   begin
    Repeat
     Readln(user , UserR.PassW); 
     i := i+2                   
    until
    EOF(user);
   end;
  SetLength(userA , I);
  Closefile(User);

end;