[roman]

procedure TfrmCatPlazos.CreaButton(const PNLeft, PNTop : Integer);
begin
  inherited;

  { Otro código }
end;

// Saludos