//要点1: 过程用 procedure 定义, 函数用 function 定义; 过程没有返回值, 函数需要返回值. procedure MyProc; begin ShowMessage('ok'); end; function MyFun: string; begin Result := 'ok'; end;