[dec]

Hola,

Utiliza el "begin", puesto que a cada "condición" le van a corresponder varias instrucciones:

Código Delphi [-]
if Edit1.Text = 'RED' then
begin
  Label1.Font.Color:=ClRED;
  Label1.Caption:='RED';
end
else
if Edit1.Text = 'BLUE' then
begin
  Label1.Font.Color:=ClBlue;
  Label1.Caption:='Blue';
end
else
if Edit1.Text = 'GREEN' then
begin
  Label1.Font.Color:=ClGreen;
  Label1.Caption:='GREEN';
end;