1'den 10'a ve 10'dan 1'e kadar sayı yazdıran program kodu

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=1 to 10 do
edit1.text:=edit1.text+' '+inttostr(i);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
begin
for i:=10 downto 1 do
edit2.text:=edit2.text+' '+inttostr(i);
end;

end.