Pregunta muy de principiante.

[pokexperto1]

Hola a todos.

Tengo un código que hace lo siguiente:

Código Delphi [-]
procedure TimerHola(Sender: Tobject); 
var 
  letra : integer;
  textomemo : string;
begin 
  textoememo := 'hola'; 
  letra := letra+1; 
  memo.Lines.Add(Copy(textomemo, letra, 1)); 
  showmessage(inttostr(letra));
end;

Lo que hace el memo es tipo:
h
o
l
a

y lo que quiero que haga es : hola

Como lo hago? Gracias.

[ecfisa]

Hola pokoexperto1.

El método Add agrega cadenas al final de la lista. Para lo que buscas hacer, tenes que usar la propiedad Text, ej.:

Código Delphi [-]
...
var
  textomemo : string = 'hola';
  letra: Integer = 0;

...

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  letra := letra + 1;
  Memo1.Text := Memo1.Text + Copy(textomemo, letra, 1);
  Timer1.Enabled := letra <= Length(textomemo);
end;

Saludos