Beckham 님이 쓰신 글 :
: 프로시저와 함수에 대한 강좌좀 해주십시요..
: 예제를 이용해서 해주심 더욱 감사드리구요...

리턴이 있는 경우 --> function 으로 선언

ex)
function Test: Integer;
begin
  Result := 1;
end;

function Test: String;
begin
  REsult := 'test';
end;

리턴이 없는 경우 --> procedure 로 선언