[delphi.com.ar]

Código Delphi [-]
  if FileExists(Ruta) then
    mmo1.Lines.LoadFromFile(Ruta);

Ante la evaluación negativa podrías mostrar otro mensaje.

PD:
Dudo que sea válido el código:

Código Delphi [-]
if DateToStr(Fecha) = '' Then

Ya que DateToStr nunca será '', en el caso de que la fecha sea 0 su conversión a string será: '30/12/1899', por lo que te recomiendo preguntar suponiendo que es lo que quieres:

Código Delphi [-]
if Fecha = 0 then...

Saludos!