Un problème avec intélligence artificielle

Bonjour,
Je suis en train de faire un jeu MORPION 3x3 de type AI sur Delphi mais j'ai rencontré un problème. Le programme maintenent n'est pas encore intélligent comme je veux. Je croix que ma Procédure de l'élagage alpha beta ne marche pas très bien. Est-ce que vous pouvez m'aider de chercher les erreurs? Voici le code source de minmaxalphabeta.
Merci en avance!

Procedure minmaxalphabeta( jeu:morpion; depth:byte; joueur:byte;var lecoup:coup; var score,alpha,beta:integer);
var
i,MM_score: integer;
MM_board : morpion;
prof:byte;
couppos : coupjeu;
MM_move : coup;

begin
{ incrémente la profondeur de recherche }
prof:=depth;
inc(prof);
alpha:=-99;beta:=99;
{vérifier le nombre de coups possibles}
if (coups_possibles(couppos,jeu,joueur )<>0 ) then
begin
if joueur=humain then
{ execute tous les coups possibles }
for i := 1 to couppos.ncoups do
Begin
score:=alpha;
move(jeu,MM_board,sizeof(morpion));
{ appel minmax avec la reccursivité }
{ ici on est à un noeud de l'arbre }
jouer_le_coup( MM_board, couppos.coups[i] );
if (prof<>9) and (not evaluation_jeu(MM_board,ordinateur)) then
minmaxalphabeta( MM_board, prof, inversejoueur(joueur), MM_move,MM_score,score,beta)
else
if (prof=9) or (evaluation_jeu(MM_board,humain)) or (evaluation_jeu(MM_board,ordinateur)) then
MM_score:=evaluation(jeu); { ici, on est aux feuilles de l'arbre. }
if score<MM_score then
Begin
score:=MM_score;
lecoup:=couppos.coups[i];
if score>=beta then exit;
end;
end;
if joueur=ordinateur then
for i := 1 to couppos.ncoups do
Begin
score:=beta;
move( jeu, MM_board, sizeof( morpion ) );
jouer_le_coup(MM_board, couppos.coups[i] );
if (prof<>9) and (not evaluation_jeu(MM_board,humain)) then
minmaxalphabeta(MM_board, prof, inversejoueur(joueur), MM_move,MM_score,alpha,score)
else
if (prof=9) or (evaluation_jeu(MM_board,humain)) or (evaluation_jeu(MM_board,ordinateur)) then
MM_score:=evaluation(jeu);
if MM_score<score then
Begin
score:=MM_score;
lecoup:=couppos.coups[i];
end;
if score<=alpha then exit;
end;
if joueur=humain then alpha:=MM_score else if joueur=ordinateur then beta:=MM_score;
end;
end;