Mas aonde foi que eu errei ?!!!!!!!!!!

function SOMA(s,x:Double):Double;
begin
s:=s+x;
RESULT:=s; // COMO EU FAÇO PRA CHAMAR ESSA FUNÇÃO LA NA
// PROCEDURE ?????

procedure TForm1.Button3Click(Sender: TObject);
var
i, n: Integer;
s, x,TOT: Double;
begin
s:=0;
n:= ListBox1.Items.Count;
for i:=0 to n-1 do
begin
x:=StrToFloat(ListBox1.Items[i]);
TOT:=soma(s,x);
end;
Edit2.Text:=FloatToStr(TOT); // <----COMO CHAMAR O VALOR
// DE RESULT AQUI ???
end;