[Дикарь]

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  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
  else;
   if g=255 and t=1 then
    g:=g+1
     else;
      if b=255 and t=1 THEN
       b:=b+1;
       t:=0
        else;
           if r>=0 and t=0 then
            r:=r-1
             else;
              if g>=0 and t=0 then
               g:=g-1
                else;
                 if b>=0 and t=0  then
                  b:=b-1
                  t:=1
                   else;
                    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);

 until true;
end;

end;
end.

Окно разворачивается на весь экран при запуске
Смысл программы думаю понятен из кода.
Компиятор выдает много ошибок о несовместимости типов и Missing operator or semicolon.
Как исправить не подскажете?