for j:=1 to 3 do begin form2.TLabel(FindComponent('Label'+IntToStr(i))).Caption := a[i,j]; end; 

    1 answer 1

    Rearrange the type conversion, it is not in your place:

     TLabel(form2.FindComponent('Label'+IntToStr(i))).Caption := a[i,j];