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

[لؤي]

محاولة بسيطة

PHP كود :

var u,i,p,k:Integer;
begin
  u:=20; p:=0;
  begin
k:=0;
 repeat
  for i:=p to u do    begin
memo1.Lines.Strings[i];
ShowMessage(memo1.Lines.Strings[i]);
ShowMessage(IntToStr(i));
ShowMessage('p='+IntToStr(p));
end;
p:=u+1;u:=u+20;
k:=k+1;
ShowMessage('k='+IntToStr(p));
ShowMessage('Memo1.Lines.Count='+IntToStr(p));
until k=Memo1.Lines.Count;
end;
 end; 


إستعملت خاصية ShowMessage للتأكد