Buscar un archivo

[[Caral]]

Hola a todos y gracias de antemano por vuestra ayuda.
Tengo este codigo en un boton:

Código Delphi [-]
procedure TFrCelda.pnl1Click(Sender: TObject);
var  Ruta: String;
begin
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';
   mmo1.Lines.LoadFromFile(Ruta);
end;

El problema lo tengo cuando no encuentra el archivo, me manda un error.
Lo que quiero en que me mande un mensage y no pase nada.
El archivo esta incluido en (Fecha) y la direccion en (Ruta).
se podra.?
saludos

Edito: No he podido arreglar el codigo, si me haceis el favor os lo agradezco.
Saludos