Delphi заготовки

Function OneColorToColor(Color1,color2:Tcolor):integer;
 var x:integer;
 mindeX:integer;
 r1,g1,b1:integer;
 ri,gi,bi:integer;
 delta:Integer;
begin
 r1:=GetRValue(color1);
 g1:=GetGValue(color1);
 b1:=GetBValue(color1);
 ri:=GetRValue(color2);
 gi:=GetGValue(color2);
 bi:=GetBValue(color2);
 result:=Round(SQRT(power((Ri-R1),2) +
 power((Gi-G1),2) + power((Bi-B1),2)));
end;