[RusMaXXX]

попробуй так:

Код:

var
  path:string;
begin
  NoteChDate.Date:=Now;
  path:=ExtractFilePath(ParamStr(0))+'data\note\'+DateToStr(notechdate.date)+'.rtf';
  if FileExists(path) then
    note.Lines.LoadFromFile(path)
  else begin
    Application.MessageBox(Pchar(path+'<Сообщение об ошибке открытия>'),'<Некая капча>');
  end;
end;