Считывается только одна строка из файла

 ExtractStrings([','],[' '],Pchar(str[k]),str2);

str.count

procedure TForm1.Button2Click(Sender: TObject);
var i,k,cfg: Integer;
var path:string;
var lCmpnt,lCmpnt1,lCmpnt3: TComponent;
var lcbtd,lcbtd2:Tedit;
lCmb:TComboBox;
var str,str2:TStringList;
begin
 If OpenDialog1.Execute then
 begin
  path:=OpenDialog1.FileName;
  str:=TStringList.Create;
  str.LoadFromFile(path);
  str2:= TStringList.Create;
 
    for k:=0 to str.count-1 do
     begin
    ExtractStrings([','],[' '],Pchar(str[k]),str2);
 
    for i:=1 to 21 do
  begin
 
    lCmpnt:= Form1.FindComponent('timedelay' + IntToStr(i));
    if Assigned(lCmpnt) and (lCmpnt is Tedit)    then
    begin
      lcbtd:= TEdit(lCmpnt);
      lcbtd.Text:=str2[0];
    end;
    lCmpnt1:= Form1.FindComponent('timework' + IntToStr(i));
    if Assigned(lCmpnt1) and (lCmpnt1 is Tedit)  then
    begin
      lcbtd2:= TEdit(lCmpnt1);
      lcbtd2.Text:=str2[1];
   end;
 
    lCmpnt3:= Form1.FindComponent('algoritm' + IntToStr(i));
    if Assigned(lCmpnt3) and (lCmpnt3 is TComboBox)   then
    begin
      lcmb:= TComboBox(lCmpnt3);
      lcmb.Text:=str2[2];
    end;
 
 
    str2.clear;
 
 
    end
  end
  end
 
 
  else
 OpenDialog1.Destroy;
 
end;