Смена пользователей в типизированном файле по щелчку в едите

unit AllUsersUnit;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;
 
type
  TAllUsersF = class(TForm)
    UserLabel: TLabel;
    Blocked: TCheckBox;
    RestrictPass: TCheckBox;
    NextUser: TBitBtn;
    SaveBtn: TBitBtn;
    OkBtn: TBitBtn;
    CancelBtn: TBitBtn;
    Edit1: TEdit;
    ListBox1: TListBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure CancelBtnClick(Sender: TObject);
    procedure NextUserClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  AllUsersF: TAllUsersF;
    j:Integer=0;
implementation
 
uses WindowUnit, LogPassUnit;
 
{$R *.dfm}
 
procedure TAllUsersF.CancelBtnClick(Sender: TObject);
begin
AllUsersF.hide;
mf.show;
end;
 
procedure TAllUsersF.NextUserClick(Sender: TObject);
var i:Integer;
begin
  for i:=0 to filesize(LogsFile)-1 do begin
       seek(LogsFile,i);
    read(logsfile,log);
 
 
 
            ListBox1.Items.Add(Log.Login);
           // ListBox1.Items.Clear;
         end;
 
   end;
 
procedure TAllUsersF.BitBtn1Click(Sender: TObject);
 
begin
 
 Edit1.Text:=log.Login;
 seek(LogsFile,j);
     j:=j+1;
 
 read(logsfile,log);
 
 if (j>=Length(log.Login)) then
j:=0;
 
 //CloseFile(LogsFile);
 end;
 
end.