Pascalda sürekli renk değiştiren yazı

uses crt;
var
a:integer;
begin
clrscr;
for a:=1 to 500 do begin
gotoxy(30,8);
textcolor(a);
writeln('Yazmak İstediginiz Yazi');
delay(500);
(*Delay Degerini KAfanıza Göre DeğiştirebiLirsiniz*)
end;
readln;
end.