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
