Открытие Excel и Word

[Mr. Джон]

Нужно произвести открытие файла, в папке у меня и Word файлы, и Excel.
написал такой код:

procedure TForm2.sBitBtn1Click(Sender: TObject);
var
MSWord:OLEvariant;
Excel:OLEvariant;
begin
MsWord := CreateOleObject('Word.Application') ;
Excel:= CreateOleObject('Excel.Application' );
if not MSWord.Documents.Open('C:\proc\File s\'+sDBEdit1.Text+'.doc')
then Excel.Documents.Open('C:\proc\Files \'+sDBEdit1.Text+'.xls');
MsWord.Visible := True;
Excel.Visible := True;
end;

посылает меня, но если я к примеру пишу :

MsWord := CreateOleObject('Word.Application') ;
MSWord.Documents.Open('C:\proc\File s\'+sDBEdit1.Text+'.doc')
MsWord.Visible := True;
то открытие производится только Worda.
Подскажите или наведите на цель если к примеру нет Word файла то ищется Excel с таким же именем...
Надеюсь понятно разъяснил.

[Mr. Джон]

Извините, не туда тему вставил