problem z IdFTP

Napisałem programik w którym po polaczeniu z serwerem FTP w listboxie pojawiaja sie wszytskie pliki jpg i gif po nacisnieciu na któryś item. Plik pobiera sie na dysk i otwiera w TImage. Chcialem zrobić coś takiego że gdy jpeg lub gif sie sciaga to żeby na pasku statusuy pokazało napis trwa pobieranie obrazka. zrobiłęm coś takiego:

procedure TForm1.ListBox2Click(Sender: TObject);
var
sciezka: string;
remote: string;
begin
StatusBar1.Panels[0].Text:='Proszę czekac...';
sciezka := ExtractFilePath(Application.ExeName);
remote := ExtractFileName(StringReplace(ListBox2.Items[ListBox2.ItemIndex], '/', '\', [rfReplaceAll, rfIgnoreCase]));
if not FileExists(sciezka + 'Temp\' + remote) then
begin
IdFTP1.get(ListBox2.Items[ListBox2.ItemIndex], sciezka + 'Temp\' + remote);
end;
Image1.Picture.LoadFromFile(sciezka + 'Temp\' + remote);
StatusBar1.Panels[0].Text:='Polączony';
end;
end;

ale nie pojawia sie w ogóle Prosze czekać napis. Jest jakiś sposób na to?

procedure TForm1.ListBox2Click(Sender: TObject);
var
sciezka: string;
remote: string;
begin
StatusBar1.Panels[0].Text:='Proszę czekac...';

application.processmessages;


sciezka := ExtractFilePath(Application.ExeName);
remote := ExtractFileName(StringReplace(ListBox2.Items[ListBox2.ItemIndex], '/', '\', [rfReplaceAll, rfIgnoreCase]));
if not FileExists(sciezka + 'Temp\' + remote) then
begin
IdFTP1.get(ListBox2.Items[ListBox2.ItemIndex], sciezka + 'Temp\' + remote);
end;
Image1.Picture.LoadFromFile(sciezka + 'Temp\' + remote);
StatusBar1.Panels[0].Text:='Polączony';
end;
end;

moze pomoze, ale reki nie dam :)

Działa, dzieki!