[andres1569]

Cambia la primera línea dentro del procedure:

procedure TSERrecepcion.but_registrarClick(Sender: TObject);
var
  var_hoy: string;
  fecha: TFechaHora;
begin
  fecha := TFechaHora.Create;
  var_hoy:=fecha.getFechaCad();
  // fecha.setFecha(28,10,2003);
  // FechaHora.setFecha(28,10,2003);
  fecha.Free;
  Showmessage ('Fecha Actual'+var_hoy);
end;

De todas maneras, me parece que es excesivo utilizar una clase para este propósito. Échale un vistazo a las funciones DecodeDate, EncodeDate y DateTimeToStr que vienen con Delphi.