저두 초보지만 어떤 에러가 나는지 알아야 답변이 있을것 같네여..
선언만 하구 그만 두신게 아닌지
에러까지 올려보세여. 프로시저 바디도 올려보시구여
하나하나 따라하는건 책 한권 사서 보시면 되겠네여...

------------------------------------------------
unit U_procedure;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Psum(a:integer);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
procedure Tform1.Psum(a:integer);
var
i,sum:integer;
begin
i:=1;
sum:=0;
while i<=a do
begin
sum:=sum+i;
i:=i+1;
end;
showmessage(sum);
end;


{$R *.dfm}

end.
procedure Tform1.button1click(sender : Tobject);
var
n:integer;
begin
n:=10;
Psum(n);
end;
end.
-----------------------------------------------------

어디에서 잘못되었는지 부탁드립니다.

안녕하세요. 최용일입니다.

프로그래밍하기 전에 책한권 정독하시는 것이 좋은 방법일거 같네요...

ShowMessage함수는 문자열을 출력하는 함수입니다. 그러니까 숫자값을 보여줄려면 숫자를 문자로 바꾸어서 보여주셔야 하겠죠...

    showmessage( IntToStr(sum) );

"end."은 유닛의 맨 끝을 알리는 예약어입니다. 그러니까 맨 마지막에 와야죠...

unit U_procedure;

interface

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

type
    TForm1 = class(TForm)
    Button1: TButton;
    procedure Psum(a:integer);
    procedure Button1Click(Sender: TObject);
    private
        { Private declarations }
    public
        { Public declarations }
    end;

var
    Form1: TForm1;

implementation

{$R *.dfm}


procedure Tform1.Psum(a:integer);
var
    i,sum:integer;
begin
    i:=1;
    sum:=0;
    while i<=a do
    begin
        sum:=sum+i;
        i:=i+1;
    end;
    showmessage(IntToStr(sum));
end;

procedure Tform1.button1click(sender : Tobject);
var
    n:integer;
begin
    n:=10;
    Psum(n);
end;

end.

^^ 항상 즐코하세요...