вывести числа в ряд

[megostudent]

как вывести в мемо или записать в файл числа от 1-10 например и ставить после каждого числа запятую и пробел. делал вывод в столбик в мемо, но когда копирую оно и пастится в столбик, а мне 6т чисел))

[fate]

str:string;
...............
for i:=1 to 10 do
str:=str+inttostr(i)+', ';

[megostudent]

да так поехало спс)

var
i:integer;
str:string;
begin
for i:=59000 to 65000 do
str:=str+inttostr(i)+', ' ;
memo1.Lines.Add(str);


end;

procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Clear;
end;