S. D. F.

250          a := Fields[i].AsString;

260          if a = '' then a := ' - ';

270          S := S + ''+a+'';

280         end; // for

290       Next;

300       S := S + '';

310      LHTML.Add(S);

320      end; // while

330   LHTML.Add('');

340  END

350  ELSE

360  LHTML.Add('

EMPTY

');

370  LHTML.Add('