Geometrische Körper ausrechnen

[Coolnes]

Hallo. Ich Programmiere gerade ein Programm mit dem ich Körper ausrechnen kann.
Das wären dann bei mir Quader, Pyramide, Kegel und Zylinder. Die ersten beiden Körper hab ich ja noch hinbekommen, doch beim Kegel weiss ich nicht mehr weiter, wenn ich es Kompiliere, dann steht bei denn Warnungen: "[Warnung] Unit1.pas(105): W1036 Variable 'PI' ist möglicherweise nicht initialisiert worden"

Könnt ihr mir einen kleinen Code-Schnippsel aufschreiben!
Hier ist der Quellcode, welches ich geschrieben habe, ist nur der kleine Teil:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var r, h, PI, v: Real;
begin
r :=strtofloat(Edit11.Text);
h :=strtofloat(Edit12.Text);
v :=((1/3)*(PI)*r*r*h);
Edit13.Text :=floattostr(v);
end;