[gulder]

eduarcol aqui esta el del projec me imagino que esto lo que me pides

Código Delphi [-]
program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.Run;
end.

bueno y en cuanto a las dos funciones de llenas ya estaban pero aqui ban otravez

Código Delphi [-]

procedure TForm2.llenar_informacion(T_letra: string;color1,color2:string);
begin
    form1.Label1.Font.Name:=T_letra;
    form1.Label1.Font.Color:=StringToColor(color1);
    form1.Label2.Font.Name:=T_letra;
    form1.Label2.Font.Color:=StringToColor(color1);
    form1.Label3.Font.Name:=T_letra;
    form1.Label3.Font.Color:=StringToColor(color1);
    form1.Label4.Font.Name:=T_letra;
    form1.Label4.Font.Color:=StringToColor(color1);
    form1.Label5.Font.Name:=T_letra;
    form1.Label5.Font.Color:=StringToColor(color1);
    form1.Label6.Font.Name:=T_letra;
    form1.Label6.Font.Color:=StringToColor(color1);
    form1.Label7.Font.Name:=T_letra;
    form1.Label7.Font.Color:=StringToColor(color1);
    form1.Label8.Font.Name:=T_letra;
    form1.Label8.Font.Color:=StringToColor(color1);
    form1.Label9.Font.Name:=T_letra;
    form1.Label9.Font.Color:=StringToColor(color1);
    form1.Label10.Font.Name:=T_letra;
    form1.Label10.Font.Color:=StringToColor(color1);

    form1.Panel1.Color:=StringToColor(color2);
    form1.Color:=StringToColor(color2);

end;



procedure TForm2.llenar_informacion2(T_letra: string;color1,color2:string);
begin
    form1.JvPlaylist1.Font.Name:=T_letra;
    form1.JvPlaylist1.Font.Color:=StringToColor(color1);
    form1.JvPlaylist1.Color:=StringToColor(color2);
    form1.panel3.Color:=StringToColor(color2);
end;

bueno aqui esta lo que me pides saludos