1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

  bericht := '';
    if FileExists(Excel_da) then
    begin
      bericht := bericht + 'Datei Excel.exe ist auf der Platte vorhanden' + #13;
      ExcelYesNo := true;
    end
    else
      bericht := bericht + 'Datei Excel.exe fehlt auf der Platte!' + #13;
  //------------------------------------------------------------------
    if FileExists(Word_da) then
    Begin
      bericht := bericht + 'Datei Winword.exe ist auf der Platte vorhanden' + #13;
      WordYesNo := true;
    end
    else bericht := bericht + 'Datei Winword.exe fehlt auf der Platte!' + #13;
  //------------------------------------------------------------------
    if fileexists(SOffice_da) then
    Begin
      bericht := bericht + 'Paket StarOffice ist auf der Platte vorhanden' + #13;
      SOfficeYesNo := true;
    end
    else
      bericht := bericht + 'Paket StarOffice fehlt auf der Platte!' + #13;
    
    PanelBlitz(self);  // showmessage(bericht); 


    ////
    procedure TBuchMain.PanelBlitz(sender: Tobject);
    begin 
      timer2.Enabled := true;
      Panel1.caption := bericht;
      Panel1.Parent := BuchMain;
      Panel1.Visible := true; Panel1.BringToFront;
    end;
    ////					

1:
2:
3:
4:
5:

Label1.Caption:=Bericht; //ich glaube du solltest #13#10 statt #13 verwenden
Label1.AutoSize:=True;

Panel.Height:=Label1.Height+2*Label1.Top;
Panel.Width:=Label1.Width+2*Label1.Left;