unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
    function MyProc(FirstInt: Integer; SecondInt: Integer): Integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function MyProc(FirstInt: Integer; SecondInt: Integer): Integer;
var
    ThirdInt: Integer;
begin
    ThirdInt := FirstInt + SecondInt;
    Result := ThirdInt;
end;

end.


위와 같이 선언부에 Function을 써주고 하단 구현부에 Function구현을 적어주었습니다.. 그런데 에러 발생인데 왜 발생하는 건지 알려주셨으면 합니다...

감사합니다.