Math Problem (Not homework!)

I tried writing a routine to extract hex values of 2 or more
colours and then blend between them giving a rainbow effect i failed
can someone pleeeease help me here i spent days trying to work out the
problem...

Ok the code below is the problem, all you need to do is put on a memo
a button and paste in the gaps from below and hit the button the output
from the example below gives..

R: 255 G: 0 b: 0
R: 204 G: 51 b: 0
R: 153 G: 102 b: 0
R: 102 G: 153 b: 0
R: 51 G: 204 b: 0
R: 0 G: 255 b: 0
R: 0 G: 204 b: 51
R: 0 G: 153 b: 102
R: 0 G: 102 b: 153
R: 0 G: 51 b: 204

from


 Msg:='1234567890';
 Colours:='#FF0000,#00FF00,#0000FF';


So 1 should be FF0000 (255 Red 0 Green 0 Blue)
   2 should be starting to merge with Green (which it does) and so on
   but it messes up - helpppppp any help or anyone know where i can
   get a routine to do this type of thing?

Thanks Folks....

unit eetest;

interface

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

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

var
  Form1: TForm1;
  R,G,B: Integer;
 
implementation

{$R *.dfm}


Function ConverTToRGB(StrCol: String): Boolean;
Var
 TmpCol: String;
Begin
 Result:=False;
If StrCol<>'' Then
 Begin
  Result:=True;
  TmpCol:=StrCol;
  Try
    R:=StrToInt('$'+Copy(TmpCol,2,2));
    G:=StrToInt('$'+Copy(TmpCol,4,2));
    B:=StrToInt('$'+Copy(TmpCol,6,2));
    Except
   End;
 End;
End;

Procedure Tform1.Blend;
Var
 Msg,Colours,Str1,Str2: String;
 BuildStr,TmpCol,TmpCol2,Tmp,Tmp2: String;
 IncR, IncG, IncB: Integer;
 N: Integer;
 BlendCount,Rcmp,GCmp,BCmp,RS,GS,BS,RF,GF,BF,P1,P2: Integer;
 ColDif,ColCount,CharCount,NewR,NewB,NewG: Integer;
Begin
 BuildStr:='';
 N:=0;
 NewR:=0; NewB:=0; NewG:=0; RS:=0; GS:=0; BS:=0;
 RF:=0; GF:=0; BF:=0; P1:=0; P2:=0; IncR:=0; IncG:=0; IncB:=0;
 Msg:='1234567890';
 Colours:='#FF0000,#00FF00,#0000FF';
 Tmp:=Msg;
 CharCount:=Length(Msg);
 ColCount:=3;
 BlendCount:=Trunc(CharCount div (ColCount-1));
 ColDif:=ColCount*BlendCount;
 Tmp2:=Msg;
 Tmp:=Colours+',';
  While (Pos(',',Tmp)>0) do
   Begin
    NewR:=0; NewB:=0; NewG:=0; RS:=0; GS:=0; BS:=0;
    RF:=0; GF:=0; BF:=0; P1:=0; P2:=0;
    P1:=Pos(',',Tmp);
    TmpCol:=Copy(Tmp,1,p1-1);
    Delete(Tmp,1,P1); //TmpCol = First ColorString (e=g #FF0000)
     P1:=Pos(',',Tmp);
     N:=0;
    TmpCol2:=Copy(Tmp,1,p1-1);
    If TmpCol2='' Then Exit;
        If ConvertToRGB(TmpCol)=True Then
     Begin
       RF:=R;
       GF:=G;
       BF:=B;
     End;
    If ConvertToRGB(TmpCol2)=True Then
     Begin
       RS:=R;
       GS:=G;
       BS:=B;
     End;
  If Msg<>'' Then
    Begin
    Repeat
     Inc(N);
          if n=2 then
          begin
          RCmp:=RF-Rs;
          GCmp:=GF-GS;
          BCmp:=BF-BS;
            if RCmp <=0 then
             begin
               RCmp:=-RCmp;
               IncR:=Trunc((RCmp/BlendCount));
             end
            else
               IncR:=Trunc((RCmp/(BlendCount)));
            if GCmp <=0 then
             begin
               GCmp:= -GCmp;
               IncG:=Trunc((GCmp/BlendCount));
             end
            else
               IncG:=Trunc((GCmp/(BlendCount)));
            if BCmp <=0 then
             begin
               BCmp:= -1*(BCmp);
               IncB:=Trunc((BCmp/BlendCount));
             end
            else
              IncB:=Trunc(BCmp/(BlendCount));
          end;
          RCmp:=RF-Rs;
          IF Rcmp>=0 Then
              NewR:=RF-Trunc(IncR)
            else
             NewR:=RF+Trunc(IncR);
           GCmp:=GF-GS;
           IF Gcmp>=0 Then
              NewG:= GF-Trunc(IncG)
           else
              NewG:=GF+Trunc(IncG);
            BCmp:=BF-Bs;
            IF Bcmp>=0 Then
              NewB:=BF-Trunc(IncB)
            else
              NewB:=BF+Trunc(IncB);
           If N<=Length(Msg) Then
            Begin
              Form1.Memo1.Lines.Add('R: '+IntToStr(NewR)+' G: '+IntToStr(NewG)+' b: '+IntToStr(NewB));
              //output results
            End;
           RF:=NewR;
           GF:=NewG;
           BF:=NewB;
     Until N>BlendCount-1;

        Delete(Msg,1,1);  
        IncR:=0;
        IncB:=0;
        IncG:=0;
     End;
   End;
End;


procedure TForm1.Button1Click(Sender: TObject);
begin
 Blend;
end;

end.