Поиск файла в Делфи. Опции

[Tan]

Не подскажите а как можно вызвать browse - menu, в котором можно было выбирать файлы со своего ПК, с которых впоследствии пойдёт считка? Просто хочется реализовать эту часть программы именно с этим меню, не прося пользователя вводить Path, а просто дать ему найти этот файл с помощью browse. Так же если кто-то расскажет как сделать так, пользователь вводит имя файла и прога ищет его на харде, буду рад.

[Tan]

когда я передаю адрес из диалогбокса в эту процедуру, то возникает ощибка ассема:

Function ReadFromFile (Var S1: MyString; StrPath : String) : Boolean;
Var
  Simbol:Char;
  F: Text;
  Flag : Boolean;
Begin
Assign (F, StPath); {$I-} Reset (F);  {$I+}
  If IOResult = 0 Then
  Begin
         Flag := True;
         S1^.StrLen := 0;
         If Not Eof (F) Then
    Begin
      While not EOF(F) or (S1^.StrLen = MaxLength) do
      begin
        Read (F, Simbol);
        S1^.StrLen:=S1^.StrLen + 1;
        S1^.Data[S1^.StrLen] := Simbol;
       end;
    End;
  End Else
  Begin
    Flag := False;
  End;
  InFile := Flag;
End;

Ребята, помогайте