#define RGB(r, g ,b) ((DWORD)(((BYTE)(r)|((WORD)(g)<<8))|(((DWORD)(BYTE)(b))<<16)))

int red = random(255);
int blue = random(255);
int green = random(255);
Label1->Font->Color = (TColor)RGB(red,blue,green);