Efeito legal no caption do form 2

//declare as variaveis CAP e NCAR como gloobais.
var
cap : String;
ncar : Integer; // Inicialize as variáveis no evento Show do Form


cap := 'Digite aqui a Caption do Formulário';
ncar := 0; {- Coloque um objeto Timer no Form

- Modifique a Propriedade Interval do objeto Timer1 para 100

- No Evento OnTimer do objet Timer1 digite o seguinte}


IF ncar <= length(cap) then
begin
Form1.caption := copy(cap,1,ncar);
ncar := ncar +1;
end
else
begin
ncar := 0;
end;