Fechas de Pagos 15 y 30 de cada mes!

[ecfisa]

Hola, disculpame, ya te pongo dos formas de llamarlo.

procedure TForm1.Button1Click(Sender: TObject);
begin
  PonerFechas('2000');
end;

o también:

procedure TForm1.Button1Click(Sender: TObject);
begin
  PonerFechas(Edit1.Text); // suponiendo que allí tengas el año
end;

Saludos.