Tedits y botones

[turminator]

Hola queria poner a mi formulario 70 botones y 70 Tedits. El problema que me encuentro es que con tantos objetos necesitaria una Form muy grande.

para solucionar el tema de los botones he pensado en usar un combox y asignarle el evento onchange:

Código Delphi [-]
procedure TFPrincipal.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.Text = 'Negro' //si el texto de ComboBox1 es igual a negro
   then //entonces
   Memo1.Font.Color := clBlack // el color de fuente de Memo1 es igual a (Black)negro
   else if //en cambio si
   ComboBox1.Text = 'Azul' then
   Memo1.Font.Color := clBlue else if
   ComboBox1.Text = 'Amarillo' then
   Memo1.Font.Color := clYellow else if
   ComboBox1.Text = 'Verde' then
   Memo1.Font.Color := clGreen else if
   ComboBox1.Text = 'Rojo' then
   Memo1.Font.Color := clRed ;

(Ejemplo) Pero para tener tantos Tedits no se me ocurre ninguna solución. Que me recomendais?