كيف اخذ 20 سطر من مكون memo و استرادها 20 ,20 حتى الأنتهاء

[Agmcz]

عندي قائمة كلمات عددها غير ثابت أود استرادها ة 20 ,20 حتى الأنتهاء
مثال

PHP كود :

var i, j:Integer;
SL: TStringList;
begin
  SL := TStringList.Create;
  try
    for i := 0 to Memo1.Lines.Count -1 do
    begin
      SL.Add(Memo1.Lines.Strings[i]);
      if SL.Count = 20  then
      begin
        Memo2.Text := SL.Text;
        SL.Clear
      end else
      for j := 1 to 19 do
      if SL.Count = j then
      begin
        Memo3.Text := SL.Text;
        SL.Clear;
      end;
    end;
  finally
    SL.Free;
 end;
end;