Как правильно написать процедуру

[Cold Went]

Здравствуйте Уважаемые!!!
Подскажите пожалуйста каким образом можно структурировать данную процедуру, т.е как правильно писать данную процедуру:

for j:= 1 to 20 do
begin

StringGrid2.Cells[0,j]:= '00:' + IntToStr(j*3);
StringGrid2.Cells[0,j+20]:= '01:'+IntToStr(j*3);
StringGrid2.Cells[0,j+40]:= '02:'+IntToStr(j*3);
StringGrid2.Cells[0,j+60]:= '03:'+IntToStr(j*3);
StringGrid2.Cells[0,j+80]:= '04:'+IntToStr(j*3);
StringGrid2.Cells[0,j+100]:= '05:'+IntToStr(j*3);
StringGrid2.Cells[0,j+120]:= '06:'+IntToStr(j*3);
StringGrid2.Cells[0,j+140]:= '07:'+IntToStr(j*3);
StringGrid2.Cells[0,j+160]:= '08:'+IntToStr(j*3);
StringGrid2.Cells[0,j+180]:= '09:'+IntToStr(j*3);
StringGrid2.Cells[0,j+200]:= '10:'+IntToStr(j*3);
StringGrid2.Cells[0,j+220]:= '11:'+IntToStr(j*3);
StringGrid2.Cells[0,j+240]:= '12:'+IntToStr(j*3);
StringGrid2.Cells[0,j+260]:= '13:'+IntToStr(j*3);
StringGrid2.Cells[0,j+280]:= '14:'+IntToStr(j*3);
StringGrid2.Cells[0,j+300]:= '15:'+IntToStr(j*3);
StringGrid2.Cells[0,j+320]:= '16:'+IntToStr(j*3);
StringGrid2.Cells[0,j+340]:= '17:'+IntToStr(j*3);
StringGrid2.Cells[0,j+360]:= '18:'+IntToStr(j*3);
StringGrid2.Cells[0,j+380]:= '19:'+IntToStr(j*3);
StringGrid2.Cells[0,j+400]:= '20:'+IntToStr(j*3);
StringGrid2.Cells[0,j+420]:= '21:'+IntToStr(j*3);
StringGrid2.Cells[0,j+440]:= '22:'+IntToStr(j*3);
StringGrid2.Cells[0,j+460]:= '23:'+IntToStr(j*3);
StringGrid2.Cells[0,j+480]:= '24:'+IntToStr(j*3);

[alexBlack]

ПисАть не устали ?

for j:= 1 to 20 do begin
   for k := 0 to 24 do begin
       S := intToStr(k);
       if k < 10 then S := '0'+S; 
       StringGrid2.Cells[0,j+k*20]:= S+':' + IntToStr(j*3);
   end
end