Thready ve funkci (Delphi)

Dobry den.
Jsem takovy domaci samouk ve stadiu lama.
Potřebuji, aby se při kliknuti na button se automaticky rolovaky řadky StringGrid dolu.

Něco takoveho

For I := 0 to StringGrid1.RowCount -1 do
begin
Sleep(500)
Form1.StringGrid1.Row := I;
end;

Když to použiju, při kliknuti na button to sve uděla ale program je v tu dobu nepoužitelny a neda se snim pracovat.
Vytvořil jsem thread a dal do něj a je to ok.

Čet jsem na netu o Thready ve funkci a připada mi rozumnějši dat to do funkce.
http://semi.gurroa.cz/Clanky/Threads.html#ThreadPr oc

Nějak se však nedaři nebo spiš nechapu jak na to.
Neporadite prosim.