Como adicionar letras em um memo???

[RED ICE]

Para adicionar linhas eu sei: memo1.lines.add('oi...');

mas o problema é que a cada comando destes, ele incrementa uma linha, e eu gostaria que incrementasse lado a lado, por exemplo:

esta ficando assim:

oi..

oi..

oi..

oi..

e eu quero que fique assim:

oi..oi..oi..oi..oi..oi..oi..oi..oi..

obrigado pela ajuda de todos...

[Krapus]

procedure TForm1.Button1Click(Sender: TObject);

var atextold: string; //será preenchido com o texto do memo1

begin

atextold:=memo1.Lines[memo1.lines.count-1]; //joga o texto anterior da ultima linha do memo na variável...

memo1.lines[memo1.lines.count-1]:=atextold+' - '+edit1.text; //pega o conteúdo anterior do memo e adiciona o que foi escrito no Edit1

end;

[RED ICE]

Beleza, agora acho que ficará legal, pois da forma que eu tava fazendo, eu colocava todo o texto do memo em uma variavel, depois adcionava... depois de um tempo ficava meio lento... valeu...