[angvelem]

Код:

  for y := 0 to 639 do    
  begin  
    P := BitMap.ScanLine[y];
    for x := 0 to 359 do
    begin // Здесь
      P[x].rgbtBlue:= 50;
      P[x].rgbtGreen:=120;
      P[x].rgbtRed:=0;
    end; // Здесь
  end;

Отсутствовали операторные скобки begin/end.