错矣:
Function ABC( DocName : String ) : LongInt;
Begin
    ...
    ShellExecute( Hnd, 'open', PChar( DocName ), '', 'e:\', SW_SHOW );
    ...
END;...
Var
    Var ZS : LongInt;
Begin
    ZS := ABC( ComboBox.Text );
End;