Quebra de linha Memo c/ for[Delphi]

[Felipe Kz]

Bom dia gente, não consigo dar uma quebra de linha em um memoo.

Pra vocês entenderem melhor, fiz um programa super simples:

Obs: Usei "Memoo" com 2 "o" porque ele traduzia automatico para memoria ;x

procedure TForm1.Button1Click(Sender: TObject);
begin
    for i := 1 to 10 do
    begin
       x := x + 1;
       Memoo1.lines.text := inttostr(x) + ', ';
    end;
end;

Já tentei usar assim também:

Memoo1.lines.text := inttostr(x) + ', ' +[B]#13#10[/B];

Mas o resultado é igual..

Esse código deveria ficar assim no Memoo1:

1, 2, 3, 4, ..., 9, 10

Mas ele escreve tudo por cima, ou seja faz o for todo, e imprime um numero por cima do outro. assim ficando o Memoo:

10,

É isso se alguem souber como, arrumar isso agradeço.

Obrigado e abraços.

[rockzilla2109]

Use a funcao "Line.Add" do Memoo:

  Memoo1.Lines.Clear; //limpa todas as linhas do memo
  Memoo1.Lines.Add('texto a ser inserido numa linha do memo'); //adiciona linha com o texto passado

Falou