[delphi.com.ar]

Sin profundizar demasiado en tu código, puedo decirte que esta mal la implementación. Para crear una nueva instancia de una clase, la sintaxis es "Nombre de la Clase"+"Método Constructor" (TMiClase.Create), por lo que tu código tendría que ser algo como:

procedure TSERrecepcion.but_registrarClick(Sender: TObject);
var
  var_hoy: string;
  fecha: TFechaHora;
begin
  fecha := TFechaHora.Create;
  try
    var_hoy := fecha.getFechaCad();
    ...
  finally
    fecha.Free;
  end;
  Showmessage ('Fecha Actual'+var_hoy);
end;

Fijate que agregué un Try..Finally, para garantizar que siempre se libere el objeto.

Saludos!