TextFile

//循环逐行读取Text内容
procedure TForm1.Button1Click(Sender: TObject);
Var
  Fil: TextFile;
  Str: String;
begin
  AssignFile(Fil, ExtractFilePath(Application.ExeName) + 'GroupNumber.txt');  //关联文件
  Reset(Fil);
  while Not Eof(Fil) do
  Begin
    Readln(Fil, Str);
    Showmessage(Str);
  End;
  CloseFile(Fil);
end;