Не могу решить проблему с ShellListView

[Janger]

Ситуация такая. Я в Edit ввожу определённый путь, и при нажатии на Enter этот путь открывается ....
но я хотел написать условие, которое бы выводила ShowMessage если бы такой папки не существует...
Вот мой код:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then
  begin
    try
      ShellListView1.Root := Edit1.text;
      ShellListView1.Refresh;
    except
      ShowMessage('Запрашиваемый путь отсутствует');
      Edit1.text := ShellListView1.Root;
    end;
  end;
end;

Условие : try - except как то не спасает ситуацию....
Подскажите, что можно предпринять...

[Stilet]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then
  begin
    if DirectoryExists(Edit1.text) then begin
      ShellListView1.Root := Edit1.text;
      ShellListView1.Refresh;
    end else begin
      ShowMessage('Запрашиваемый путь отсутствует');
      Edit1.text := ShellListView1.Root;
    end;
  end;
end;

[SebastianLa]

Всем привет! Люди помогите, создал органайзер на лазарус, но не знаю как прописать код чтобы текстовые файлы из ShellListView1 открывались в Form 2 memo1