Диапазон

[limon]

Вобщем вот скрин формы (для наглядного понятия)

Из этого скрина видно что при нажатии кнопки "Пыщ" он генерирует в мемо текст 1@10, а мне нужно чтобы он генерировал в диапазон от 1 до 10. Тоесть не так как щас при нажатии на кнопку он генерирует так:
1@10
А нужно чтобы он генерировал по диапазону так:
1@10
2@10
3@10
и т.д.
помогите плз=)

[_Engine_]

Язык какой?

[limon]

_Engine_, дельфи

[_Engine_]

procedure Button1Click(Sender : TObject);
var i :Integer;
begin
  for i := StrToInt(Edit1.Text)  to StrToInt(Edit2.Text) do
    Memo1.Lines.Append(IntToStr(i)+'@10');
end;

[_Engine_]

даже, наверное так:

procedure Button1Click(Sender : TObject);
var i :Integer;
begin
  for i := StrToInt(Edit1.Text)  to StrToInt(Edit2.Text) do
    Memo1.Lines.Append(IntToStr(i)+'@'+Edit2.Text);
end;

[limon]

_Engine_, спс биг