Duda acerca de ShellExecute

[Chupi]

Pues parece que no funciona, le puse el siguiente codigo y nada:

procedure TForm1.Button1Click(Sender: TObject);
function GetSpecialFolder(nFolder: Integer): String;
var
Path: array[0..MAX_PATH] of Char;
begin
ShlObj.SHGetSpecialFolderPath(0, Path, nFolder, false);
Result := Path;
end;
End;
end.

Me da los siguientes errores:

[Error] Unit1.pas(39): BEGIN expected but END found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'