Hola amigo Carlos
No te sirve la función FileExists()
Código Delphi
[-]
Selected := not Selected;
if DateToStr(Fecha) = '' then begin
ShowMessage('día seleccionado no contiene nada');
end
else Ruta:= 'C:\'+FormatDateTime('dd-mm-yyyy',Fecha )+'.text';
if FileExists(Ruta) then
memo1.Lines.LoadFromFile(Ruta);
Salud OS
Edito: Orale, no sean tán rápidos......
Por otro lado, no será que quieres que la extensión sea TXT en lugar de TEXT.