Codigo validar data

Ola, peguei esse codigo que faz a validação de data em um campo MaskEdit,

mas naõ estou conseguindo entender como ele funciona, Se alguém puder me ajudar.

ele funciona corretmante.

procedure CompletaData (Edit : TMasKEdit);

var Texto1, Texto2 : string;

begin

if (Edit.Text = ' / / ') then

 Exit;

 Texto1 := Copy (Edit.Text, 1, 6) + '2000';

 Texto2 := Trim (Copy (Edit.Text, 7, 4));

 Edit.Text := Copy (Texto1, 1, Length (Texto1)- Length(Texto2)) + Texto2;

 try

 StrToDate(Edit.Text);

 except

 MessageDlg('Data inválida', mtError, [mbOk], 0);

 Edit.Clear;

 Edit.SetFocus;

 end;

end;