проблема передачи данных

[RusRUs]

проблема- в процедуре переменной типа интеджер присваивается значение напр. "-333". В вызывающей программе ошибочно передается совершенно другое число "4363540" ?!
спасибо за разъяснение!
ниже текст программки; можно загрузить https://drive.google.com/file/d/0B2D...ew?usp=sharing
или
https://drive.google.com/file/d/0B2D...ew?usp=sharing
так как небольшая, на всякий случай, ниже привожу текст программ

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    LabeledEdit3: TLabeledEdit;
    LabeledEdit4: TLabeledEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
 /////////////////////////
uses {Unit2_procedurebi,} unit2, math;

procedure TForm1.Button1Click(Sender: TObject);
var xre1, xre2, yre1:real;
var yint1:integer;
begin
   xre1:=StrToFloat (labelededit1.Text);
   xre2:=StrToFloat (labelededit2.Text);
testjami (xre1,xre2,{XXX} yre1,yint1);
   labelededit3.Text := floattostr (yre1);
   labelededit4.Text := inttostr (yint1);
end;

end.
/////////////////////
unit Unit2;

interface
procedure testjami (xre1,xre2:real; var yre1:real;yint1:integer);

implementation

procedure testjami (xre1,xre2:real; var yre1:real;yint1:integer);
begin
yre1:=xre1+xre2;
yint1:=-333;
end;

end.

[Аватар]

Дык объяви var-ом тот yint1

[min@y™]

yint1:integer // передаётся копия значения
var yint1:integer // передаётся копия значения указателя на реальные данные
const yint1:integer // передаётся копия значения указателя на реальные данные или константа