unit Unit1;

 

interface

 

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  ExtCtrls, StdCtrls;

 

type

  TForm1 = class(TForm)

    Memo1: TMemo;

    Timer1: TTimer;

    procedure FormActivate(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

     name1 : string;

    index2 : integer;

  end;

 

var

  Form1: TForm1;

 

implementation

 

{$R *.DFM}

 

procedure TForm1.FormActivate(Sender: TObject);

begin

name1 := 'My name is...';

index2 := 0;

memo1.text := ' ';

end;

 

procedure TForm1.Timer1Timer(Sender: TObject);

var

len:integer;

begin

      len := length(name1)+1; {gets the length of the string name holds}

if index2 < len

 then

   begin

   memo1.text := memo1.text + name1[index2];

   index2 := index2 + 1;

    end

else

    begin

     memo1.text := ' ';

     index2 := 0;

    end;

 

end;

 

end.