var
i ,Start,N :integer;
OutputStr :string;
N := strtointdef(edit1.Text,0);
Start ：= 1；
if N <= 0 then exit;
for i:=1 to N do
begin
Start := 1;
OutputStr ：= ‘’ ；
while Start < i do
begin
OutputStr ：= OutputStr + IntToStr(Start)；
Inc(Start) ;
end;
memo1.items.add(OutputStr);
end;

可以看看我录的视频教程！正好是帮助新手的，全部免费的