probleme quand je creer ma procedure

bonjour a tous!

voila je voulais apprendre à creer ma propre procedure, en cherchant j'ai a peut prés trouvé se qu'il falait faire mais y me manque quelque chose puisque mon code plante!
le voici:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
    procedure cucou(var nbr1: integer ; nbr2: integer ; result: integer);
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;
  nbr : integer;

implementation

{$R *.dfm}
procedure cucou(var nbr1: integer ; nbr2: integer ; result: integer);
begin
result := nbr1*nbr2;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
cucou(3,4,nbr);
showmessage(inttostr(nbr));
end;

end.

quand je lance le code, je eçois l'erreur: [Erreur] Unit1.pas(35): Les types des paramètres VAR originaux et formels doivent être identiques.

je ne vois pas ce qu'il faut faire.
je vous remercie de vos réponse

C'est normal, tu utilise mal le mot var dans les procédures. En effet tu dois l'utiliser quand tu change la valeur de la variable dans ta procédure. Or tu ne change pas tes Nb1 et Nb2 tandis que tu change ton result.
Donc au lieu de procedure cucou(var nbr1: integer ; nbr2: integer ; result: integer) tu dois mettre procedure cucou( nbr1: integer ; nbr2: integer ; var result: integer) 
( tu peux même écrire procedure cucou( nbr1,nbr2: integer ;var  result: integer))
Tu avais une erreur car puisque nbr2 était déclaré comme étant une variable, quand tu appelais ta procédure cucou(3,4,nbr), 3 et 4 son des integers et pas des variables !!
Je te conseil de revoir tes cours de pascal ou d'acheter un livre sur le pascal, pour apprendre les bases ( il y a une section livre sur le site ).
Voilà, bon courage et bonne prog !!

hello,

procedure cucou(nbr1, nbr2: integer;var result: integer);
begin
 result := nbr1 * nbr2;
end;

ou

function cucou(nbr1, nbr2: integer;): Integer;
begin
 result := nbr1 * nbr2;
end;

à utiliser comme ceci :

nbr := cucou(3,4);

toi c'est ton VAR qui est mal placé, et comme tu vois tu peux faire "a, z, e, r, t, y: integer" au lieu de "a: integer, z: integer, e: integer..."
a+