TextBox escribir automaticamente letra por letra? Ejemplo Dentro!

[Gattaca]

Hola a todos ahora vengo con otra duda. Ya que mi otro proyecto fue un exito gracias a este gran foro, os vengo con esta pequeña duda. Veran como puedo hacer que en un TextBox se escriban automaticamente letra por letra, por ejemplo:



Algo así?

[yoennis]

Escribe bien claro lo que quieres hacer

[[coso]]

Te dejo aqui un ejemplo, para que cojas la idea. Despues lo modificas segun tus necesidades. Para hacerse mas correctamente, se tendria que usar un TTimer:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
     s : string;
     i,j : integer;
begin
     s := 'Esto es tansolo un texto de prueba'#13'para mostrar como ir incluyendo'#13+
     'carácteres en un TMemo';

     Memo1.Lines.Clear;
     for i := 0 to Length(s) do
     begin
          for j := 0 to 5000000 do Application.ProcessMessages;
          Memo1.Lines.Text := Memo1.Lines.Text + s[i];
     end;
end;