var
  q: TSDQuery;
  lieferant: TLieferant;
begin
  Try
    q:=TSDQuery.Create(nil);
    try
      FLieferanten.Clear;
      q.DatabaseName:='ERDB';
      q.SQL.Text:='Select * from lieferanten where ((dttype & :dttype)>0) order by Lieferant';
      q.Params.ParseSQL(q.SQL.Text, True);
      q.Params.ParamValues['dttype']:=FLieferanten.DTType;
      q.Active:=true;
      while not q.Eof do
      begin
        Lieferant:=TLieferant.Create(FLieferanten.DTType);
        Lieferant.Lfdnr:=q.FieldByName('Lfdnr').AsInteger;
        Lieferant.Lieferantnr:=q.FieldByName('Lieferantnr').AsString;
        Lieferant.Lieferantname:=Utf8ToAnsi(q.FieldByName('Lieferant').AsString);
        Lieferant.DTType:=q.FieldByName('dttype').AsInteger;
        LoadLieferant(Lieferant.Schlagworte, Lieferant.Lfdnr, FLieferanten.DTType);
        FLieferanten.Add(Lieferant);
        q.Next;
      end;
      q.Active:=False;
    finally
      q.Free;
    end;
  finally
    Synchronize(procedure
      begin
        frm_ERNEu.ThreadFinished;
      end);
    self.Terminate;
  end;