Нельзя преобразовать тип byte к System.Drawing.Color

uses
graphABC, crt;
var
color:byte;
begin
randomize;
repeat
color:=random(15);
PutPixel(Random(100),random(100),[B]color[/B]);
delay(10);
until keypressed;
end.

uses
graphABC;
var f:boolean;
procedure keydown(key:integer);
begin
if key=VK_Return then f:=false
end;
var c:color;
begin
randomize;
f:=true;
repeat
c:=clRandom;
setPixel(Random(100),random(100),c);
sleep(10);
OnKeyDown:=keydown;
until not f
end.

c:color;

OnKeyDown:=keydown;

uses GraphABC;
var i:integer;
{procedure Ready(k:integer);
        Var
    Р: связь;
    i : integer;
  Begin
    P:=начало;
    i:=1;
    While i<>K do
      begin
        P:=P^.следующий;
        i:=i+1;
      end;
    P^.состояние:=true;
  end;}
    procedure sinus(number:integer);
        var x, y, x0,y0,k:integer; col:color;
        procedure Keydown(Key: integer);
            begin
            if key=VK_Return then exit;
            end;
        begin
        randomize;
        
        y0:=random(90,390);
        k:=random(10,50);
        col:=clRandom;
            line(20,240,620,240);
            line(320,20,320,400);
            X0:=320;
            for X:=-320 to 320 do
                begin
                    y:=trunc(k*sin(x/k));
                    setPixel(x0+x,y0-y,col);
                    sleep(1);
                end;
            onkeydown:=keydown;
        end;
BEGIN
for i:=0 to 9 do
begin
sinus(i);
end;
readkey;
END.