Как записать несколько значений работая с текстом

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 
var
  myFile : TextFile;
  text   : string;
  FIO,POL,GR,GRUP : string;
  GR2:integer;
  H:string;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
// Попытка открыть файл Test.txt для записи в него
  AssignFile(myFile, 'Test.txt');
  ReWrite(myFile);
  H:='Да';
  while H='Да' do
  begin
  repeat
    FIO := InputBox('ФИО', 'Пожалуйста, укажите свое ФИО', 'ФИО');
  until FIO <> '';
  WriteLn(myFile, FIO);
 
  repeat
  POL := InputBox('Пол', 'Пожалуйста, укажите свой пол', 'Пол');
  until POL <> '';
  WriteLn(myFile, POL);
 
  repeat
  GR := InputBox('Год Рождения', 'Пожалуйста, укажите свой год рождения', 'Год рождения');
  GR2:=StrToInt(GR);
  until GR <> '';
  WriteLn(myFile, GR);
 
  repeat
  GRUP := InputBox('Группа', 'Пожалуйста, укажите группу', 'Группа');
  until GRUP <> '';
  WriteLn(myFile, GRUP);
 
  repeat
  H := InputBox('Информация о студенте', 'Добавить информацию о студенте?', 'Да');
  until H <> '';
  If H='Нет' then
  begin
     CloseFile(myFile);
  end;
end;
end;
 
 
procedure TForm1.Button2Click(Sender: TObject);
begin
AssignFile(myFile, 'Test.txt');
reset(myFile);
Readln(myFile);
    if (POL='Мужской') and (GR2<=1996) and (GRUP='14') then
    begin
      Edit1.Text:= FIO;
    end;
    closefile(myFile);
end;
 
end.

Edit1.Text := Edit1.Text + FIO;

Readln(myFile, {вот тут});