[Yurk@]

Смысл программы думаю понятен из кода.

Как-то не совсем понятно, но если я верно понял - вот твой исходник:

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
r,g,b,i,n,t:integer;
bool:boolean;
begin
r:=0;
g:=0;
b:=0;
i:=0;
t:=1;
repeat
begin
if (r=255) and (t=1) then r:=r+1;
   if (g=255) and (t=1) then g:=g+1;
      if (b=255) and (t=1) then begin b:=b+1; t:=0; end;
           if (r>=0) and (t=0) then r:=r-1;
              if (g>=0) and (t=0) then g:=g-1;
                 if (b>=0) and (t=0)  then begin b:=b-1; t:=1; end;
                    begin
                     r:=0;
                     g:=0;
                     b:=0;
                     t:=1;
                     end;
                    i:=i+1;
                    if i=Screen.Width then i:=0;

 Canvas.Pen.Color:=RGB(r,g,b);
 Canvas.MoveTo(i,0);
 Canvas.LineTo(i,Screen.Height);
end
until True;

end;
end.