Hola kenovi, puedes colocar Application.ProcessMessage en tu ciclo en ves del Refresh.
Código Delphi
[-]
for i := 1 to elNumero do
begin
Application.ProcessMessages;
if (elNumero mod i = 0) then
Begin
ListaNumero.Items.Add(IntToStr(i));
Sleep(100);
End;
end;
Saluditos