Text aus Datei in eine ListBox laden

[Äfan]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
   Cache := IdHTTP1.Get('http://aefan.x-craft.de/ServerTest.txt');
  
 ListBox1.Items.Add(Cache);
   
   If Cache > '' then
    Label4.Caption := 'Datei geladen'
   else
    Label4.Caption := 'Ein Fehler ist aufgetreten'
end;

PS: Der Text der in Label4 komm, kann man den auch in eine Statusbar machen ?