Fonctions et procedures sous DELPHI 7

bonjour,
je suis entraine de faire une operation arithmitique mais j'ai un probleme dans le resultat qui est par exemple 6,66666........ je sais qu'il y a une fonction predifinie sous delphie s'il vous plait j'ai besoin de cette fonction
merci.

le probleme vient du fait que tu ne fais pas methode de ta fonctiondedans ton unite calcul
ta fonction
unit calcul;

interface
{ici c''est bon}
function AireDisque(Rayon: Single): Single;

implementation
{la il faut que tu fasse ta methode dans le genre}
//debut de mehode
function AireDisque(Rayon: Single): Single;

begin
Result :=PI * Rayon * Rayon ;
end ; //fin de methode

end.
une fois que tu es sur de ton coup sauve l'unite calcul
et met la dans la close Use le l'unité1
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,calcul;

la normalement tu doit la voir apparaitre
moi pour ecrire mes propres Procedures ou Fonction sur une unite a part
je les fait d'abord sur une form pour verif apres je la recopie dans ma fiche
un petit truc regarde avec les composants comment Delphi construit ces procedure cela te fera gagner du temps
exemple ton bouton regarde les evenements qui lui sont attribuer
comment ils les declare et lou se triuve les methodes

salut c encore moi !
voila exactement ce que j'ai fait sous mon delphi
j'ai créer un projet (premierEssai.dpr) contenant une unité 'principale.pas' avec sa forme (forme1) ;et une unité calcul (sans fiche)

voici le corps de principale:
unit principale;

interface

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

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

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
aire : single;
begin
ShowMessage ('bravo!bonne réponse:)');
aire := AireDisque(3.2);
end;

end.



et le corps de l'unité calcul

unit calcul;

interface
function AireDisque(Rayon: Single): Single;

implementation
AireDisque(Rayon: Single): Single;

begin
Result :=PI * Rayon * Rayon ;
end ;


end.


et apres compilation voila les erreurs que le compilateur m'affiche :
[Error] calcul.pas(7): Declaration expected but identifier 'AireDisque' found
[Error] calcul.pas(10): Undeclared identifier: 'Result'
[Error] calcul.pas(10): Undeclared identifier: 'Rayon'
[Error] calcul.pas(11): '.' expected but ';' found
[Error] calcul.pas(4): Unsatisfied forward or external declaration: 'AireDisque'
[Fatal Error] principale.pas(8): Could not compile used unit 'calcul.pas'



SVP aidez moi a mieux comprendre
et merci d'avance.