muchachos and muchachas ayuda por favor..

[guly]

antes que nada me presento me llamo gaston tengo 67 años y trabajo en el area de computos de la municipalidad de miramar...
estoy empezando a ver delphi para un proyecto... les comento que programo en perl, php, html...

mi pregunta es hacias ustedes estoy haciendo un codigo que lo que quiero que haga es que me cambia el color de un boton lmd button segun compare la fecha, mi problema es que los botonoes se llamas del c1 al c78 y luego comienzan c1b a c15b y luego siguen del c62b al c73b..
un enrosque pense este codigo mi problema es que funciona si le escribo el boton

c1.color:=clyellow;
por ejemplo si anda pero no se como hacer para rotarlo...
les paso el codigo estoy abiertoa cualquier consulta ya que de preguntar se aprende... saludos

Código Delphi [-]
procedure Tformcc.FormCreate(Sender: TObject);
var
   num:integer;
   carpa,nume:string;
   hoy,compara:tdate;
   fecha1,fecha2:string;
begin
      //muestro la fecha actual dd/mm/yyyy
      hoy:=date();
      fecha1:=datetostr(hoy);
      //showmessage(fecha1) ;
       /////////
       num:=1;
     while mytablerevisa.eof <> true do
      begin
       nume:=inttostr(num);
       carpa:=('c'+nume);
       compara := MyTablerevisa.FieldByName('fecha_fin').asdatetime;
       fecha2 := datetostr(compara);
           if fecha1 <> fecha2 then
             begin
             //showmessage('Son distintos    '+ fecha1 +' <> '+ fecha2);
            //carpa es una concatenacion de texto que termina escribiendome el nombre del boton y rotando pero no anda!!!! 
            (carpa).Color:=cllime;
             mytablerevisa.Next;
             end
           else
             begin

            // showmessage('Son iguales    '+ fecha1 +' = '+ fecha2);
             (carpa).Color:=clyellow;
             mytablerevisa.Next;
             end


            num:=num+1;


      end
end;

me falta saber como hacerlo girar en tre todos los botones... saludos