???

type
  TTaFonction = function(Unparam: Integer):Boolean;
 
procedure TonTrucAppele(Fonction: TTaaFonction);
begin
  Fonction(4);
end;
 
function Test(Unparam: Integer):Boolean;
begin
  result := Unparam>4;
end;
 
 
begin
  TonTrucAppele(Test);
end;
 
 
Ca devrait pas etre trop loin, ca compile pas terrible dans le forum ;-)

Ah, j'ai oublié de te dire, si c'est une fonction d'une classe que tu lui passes, tu dois la déclarer comme ca:
 
type
  TMachinChose = function(Foo: Integer):Integer of object;
 
Voila...

merci