Zdravím,pomůže někdo.
S vlákny jsem ještě nedělal a s tímto mi pomáhal kámoš.
Potřebují to upravíte tak, aby se při vyvaření vlákna předal i obsah buňky gridu podle řádku
radek := stringgrid.Cells[2,i]

TMujThread = class(TThread)
  private
   i_radek:integer;
  protected
  procedure Execute; override;
  public
    constructor Create(radek:integer);
  end;
  
constructor TMujThread.Create(radek:integer);
begin
  i_radek := radek;
  inherited Create(True);
end;

for i := 1 to StringGrid1.RowCount-2 do
    StringGrid1.Objects[0, i] := TMujThread.Create(i);