Разбиение одной строки на несколько

var
test_file:textfile;
s,t,buf,count,temp,image_file:string;
i,score :integer;
 
// кнопку в таг1, прикрепляем файл с вопросами
procedure TForm1.FormActivate(Sender: TObject);
begin
  button1.Tag:=0;
  assignfile(test_file,'test.txt');
  reset(test_file);
  i:=0;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
 
 
begin
 
{в таг 0 читаем ответы и путь к картинке
в таг 1 проверям ответы с тем что ввели в едит 1}
 
 
  case button1.tag of
    0: begin         //если таг 0 то
 
    i:=i+1;           //текущий вопрос
    buf:='';
    form1.Caption:='вопрос номер '+inttostr(i);
      repeat               // читаем файло до { в переменную s и заносим в buf-> в мемо
      readln(test_file,s);
      if s[1] <> '{'
      then buf:=buf+s+ ' ';
      until s[1]='{' ;
 
      memo1.Text:=buf;
      if   s[1] = '{'          //если { то
      then
 
      begin                   //таг в 1, стираем первый символ строки то есть {,
        button1.tag:=1;      // переключаем таг в 1
        delete(s,1,1);
        count:=s ;
        memo2.Text:=count;   // остальное в count -> в мемо
 
        repeat
        readln(test_file,t);   //читаем файл до \  в переменную t
        until t[1]='\' ;
 
        if t[1]='\'                 // если \ то копируем строку после 2 символа
        then                        // в image_file (код не мой) далее выводим в image1
          begin
          image_file:=copy(t,2,length(t));
          Image1.Picture.LoadFromFile(image_file);
          end;
 
 
      end;
    end;
 
    1:begin                  //при таге 1
 
    temp:=edit1.text;         // текст из едит 1 в temp
    if temp <> count then
    begin
    score:=score+1; // если переменные неравны то в мемо пустые строки +неверно так же считаем ошибку в score
    memo1.Lines.Add(#13#10#13#10#13#10 + 'Неверно')
    end
 
    else
    memo1.Lines.Add(#13#10#13#10#13#10 + 'Верно');   // по аналогии верно
    button1.tag:=0;                 // переключаем таг в 0
    end;
 
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
memo3.Text:='ошибок'+inttostr(score);
end;
 
end.