[[Caral]]

Hola
Sois unos verdaderos Maestros quedo asi:

Código Delphi [-]
procedure TFrCelda.pnl1Click(Sender: TObject);
var
 Ruta: String;
begin
  Selected := not Selected;
  Ruta:= 'C:\'+FormatDateTime('dd-mm-yyyy',Fecha )+'.text';
  if FileExists(Ruta) then
  begin
  mmo1.Lines.LoadFromFile(Ruta);
  end
  else
  ShowMessage('día seleccionado no contiene nada');
end;

Muchas gracias por la ayuda, Maestros y amigos.
Saludos