Открытие документа

Подскажите, пожалуйста!!!!!!!!

Что необходимо добавить и на что исправить в следующем алгоритме, чтобы при нажатии кнопки Button2 заданный файл находился и открывался независимо от того, на каком диске он находится? (То есть как сделать так, чтобы не писать полный путь к файлу, а только имя?
А то получится, что перенесу программу на другой комп, а там она находится в другой директории, и ничего работать не будет)

procedure TForm1.Button2Click(Sender: TObject);
var dir_:string;
begin
E:=CreateOleObject('Excel.Application');
E.Visible:=true;
GetDir(0,dir_);
chdir(dir_);
E.WorkBooks.Open(FileName:='d:Документ2.xls');

end;