procedure TForm1.Button1Click(Sender: TObject);
var DataIn,DataOut: TStringList; i,s: integer; 
Data: string; (*первые три строки из МЕМО1 переделанные в одну строку из 3-х слов*)
begin
   DataIn := TStringList.Create; (*начальный массив строк из МЕМО1*)
   DataOut := TStringList.Create; (*финишный накопитель строк типа СТЕК*)
   DataIn.AddStrings(Memo1.Lines); (*копируем из МЕМО1 все строки*)
   s := DataIn.Count; (*начальное значение кол-ва строк в ПЕРЕМ*)
   
     (*вот этот код надо ввести в цикл*)
     (*вызов процедур*)
     CopyStrings(DataIn, Data); (*скопировали первые три строки из DataIn в Data как одну строку*)
     DataOut.Insert(0, Data); (*перекинули строку в накопитель строк*)
     DelStrings(DataIn); (*удаление первых 2-х строк из ПЕРЕМ DataIn*)

   Memo2.Text := DataOut.Text; (*контрольный просмотр результата*)
   DataIn.Free;
   DataOut.Free;
end;