[Delphi] Ind - OnConnected, OnWork, OnWorkEnd nie działa

Próbowałem w execu i działa. Pokazuje mi w StatusBar1 odpowiedni tekst, natomiast jak zrobie to samo w Dll i odpale program to nic nie pokazuje. Dlaczego?
To proceduki, ściągnełem z arta z tej strony:

procedure TfrmMain.IdHTTP1Connected(Sender: TObject);
begin
StatusBar1.SimpleText:='Połączony...';
end;

procedure TfrmMain.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
StatusBar1.SimpleText := 'Łącze... ' + IntToStr(AWorkCount) + '%';
end;

procedure TfrmMain.IdHTTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
StatusBar1.SimpleText := 'Zakończono i rozłączono';
end;