Membuat Efek Mengetik pada Label Delphi

Efek mengetik itu maksudnya, tulisan yang ada pada label tidak akan langsung muncul semua, tetapi muncul satu persatu, per huruf. Jadi seperti lagi ngetik. :D

Sebelumnya, tambahkan dulu komponen timer. Tambahkan juga variabel i:integer; di deklarasikan di public. Setelah itu, baru tambahkan kode di bawah ini.

procedure TForm1.tmr1Timer(Sender: TObject);
const
  nama='Carolus Gaza';
begin
  if Label1.Caption = nama then
  begin
    tmr1.Enabled:=False;
  end;
  Label1.Caption := Label1.Caption + nama[i];
  Inc(i,1);
end;