Alguem me explica esse codigo...por favor

procedure TForm1.Timer1Timer(Sender: TObject); 
var
  tempcap : string;
  z : integer; 

begin 
  tempcap := ´´; 
  if FlagDir = true then
    x := x+1
  else
    x := x-1; 

(** O que aconteceu aqui em cima foi o seguinte: Esta variável FlagDir é uma variável que vai controlar se o caption vai estar se movendo para a direita (ela será true) ou para a esquerda (ela será false). E o x será uma variável que vai guardar quantos espaços em branco devem ir antes do caption. Se ela estiver indo para a direita, você deve aumentar os espaços em branco, afastando o caption - já se ela estiver indo para a esquerda, você deve reduzir os espaços em branco, aproximando o caption. **)

  for z := 1 to x do
    tempcap := tempcap + ´ ´; 

(** Nessa parte, ele vai criar uma string temporária apenas com os espaços em branco necessários, para depois fazer uma junção dos espaços em branco com a caption. **)

  tempcap := tempcap + trim(Form1.caption); 
  Form1.caption := tempcap; 
  if x = 10 then
    FlagDir := false; 

  if x = 1 then
    FlagDir := true; 

(** Aqui, finalmente, o form recebe o caption com o espaçamento adequado. Se o caption já foi incrementado com 10 espaços, um de cada vez (x = 10), então é hora de atribuir ao FlagDir o valor False, ou seja, agora o movimento vai ser para a esquerda - e se o caption já foi reduzido em 9 espaços, um de cada vez (x = 1), é hora de deslocá-lo de novo para a direita, ou seja, FlagDir volta a ser True. **)

end;