странности с ShellExecute

Хочу вызвать блокнот с открытым в нём файлом
пишу

Код (Text):

1. shellexecute(0,'open',
2. lstrcat(windir,note),lstrcat(sysdir,f),
3. sysdir,SW_SHOWNORMAL)

где до этого

Код (Text):

1. Var windir:array [0..MAX_PATH] of char;
2.     sysdir:array [0..MAX_PATH] of char;
3. ....
4. GetWindowsDirectory(windir,MAX_PATH);
5. GetSystemDirectory(sysdir,MAX_PATH);

а note и f это константы типа PChar

Код (Text):

1. const
2. f:Pchar='mgfsfiu.dll'; //это для скрытности
3. note:Pchar='notepad.exe';

Не могу понять почему не открывается блокнот

 

lstrcat нельзя использовать для составления путей - оно ж не вставит слэш. нужно или самому слэш вставлять, или FilePathAppend использовать.