Hola, disculpame, ya te pongo dos formas de llamarlo.
Código:
procedure TForm1.Button1Click(Sender: TObject);
begin
PonerFechas('2000');
end;
o también:
Código:
procedure TForm1.Button1Click(Sender: TObject);
begin
PonerFechas(Edit1.Text); // suponiendo que allí tengas el año
end;
Saludos.