[Kirhanter]

Создаю вообщем мессенджер. И сервер отправляет всех пользователей. Но while пропускает. Я ХЗ почему

Код:

procedure SendAllUsers(Login:string; Socket: TCustomWinSocket);
var s:string;
Begin
  AssignFile(f, 'Users\All.tbb');
  Reset(f);
  while eof(f) do
    Begin
      ReadLn(f, s);
      Socket.SendText('g' + Login + '!' + s + #4);
    End;
  CLoseFile(f);
End;

Админ: Использование ОГРОМНЫХ шрифтов в постах запрещено! При рецедиве последуют санкции.