Brauche Hilfe bei Umsetzung von math. Problem in Delphi :O

[MarcelDerPro]

Delphi-Quellcode:

procedure berechnung1 (s,so,a,vo:double; var k:double);

begin
k:=sqrt(((power(vo,2))-(2*a)-(so*a*s)));

end;

procedure berechnung2 (a,vo,k:double; var t:double);

begin
t:=-(vo-(k)/a);
end;



{$R *.dfm}


procedure TForm3.Button_tClick(Sender: TObject);
var
s,so,a,vo:double;
t,k:double;
begin
s:=strtofloat(edit_s.Text);
so:=strtofloat(edit_so.Text);
a:=strtofloat(edit_a.Text);
vo:=strtofloat(edit_vo.Text);
begin
Berechnung1(s,so,a,vo,k);
 Berechnung2(vo,a,k,t);
showmessage( floattostr(t));

hier lässt delphi zwar was ausrechnen nur leider das falsche ergebnis
und ich finde meinen fehler nicht ganz