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:
Código:
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!