procedure TGameOver.FormCreate(Sender: TObject);
const
   strNameOfFile = 'TypedFile.dat';
var
   usrFile: File of TUsers;
   i: integer;
begin
   cmbBoxUsers.Items.Add('');
   AssignFile(usrFile, strNameOfFile);
   if FileExists(strNameOfFile) then
      Reset(usrFile)
   else
      Rewrite(usrFile);
   mplrDeathMusic.Open;
   mplrDeathMusic.Play;
   if FileSize(usrFile) > 0 then
   begin
      SetLength(usrArray, FileSize(usrFile));
      for i := 0 to FileSize(usrFile) - 1 do
      begin
         Read(usrFile, usrArray[i]);
         cmbBoxUsers.Items.Add(usrArray[i].strName);
      end;
   end
   else
   begin
      Rewrite(usrFile);
      SetLength(usrArray, FileSize(usrFile));
   end;
   CloseFile(usrFile);
end;