روش استفاده از تابع

[Delphi7_love]

یه تابع دارم که به این شکل تعریف شده میخواستم ببینم چطور میتونم فراخوانیش کنم


procedure res(const year:integer; const month: integer; const day: integer;
const dates:integer; out newyear: integer; out newmonth: integer; out newday: integer);

تا res(1389,10,15,10 مشکی نیست ، از out newyear : integer به بعد نمیدونم چطور باید بنویسم
ممنون میشم خروجی این تابع رو در یک ادیت بنویسید

[Felony]

var
D, M, Y: Integer;
begin
res(1389,10,15,10, Y, M, D);
Edit1.Text:= IntToStr(Y) + '-' + IntToStr(M) + '-' +IntToStr(D);
end;