这段代码如何简写呢？

Question

if L_ZDH.Text <> '' then lrsz[0] := QuotedStr(L_ZDH.Text)
if L_TDWZ.Text <>'' then lrsz[1] := QuotedStr(L_TDWZ.Text)
if Pos('.', Combobox1.Text) > 0 then
  lrsz[2] := QuotedStr(Copy(Combobox1.Text, 1, Pos('.', Combobox1.Text)-1));
if Pos('.', Combobox2.Text) > 0 then
  lrsz[3] := QuotedStr(Copy(Combobox2.Text, 1, Pos('.', Combobox2.Text)-1));
if L_TDMJ.Text <> '' then lrsz[4] := QuotedStr(FloatToStr(StrToFloatDef(L_TDMJ.Text, 0)));
lrsz[5] := QuotedStr(FormatDateTime('yyyy-mm-dd', DateTimepicker1.Date));
for I := 1 to 5 do lrsz[I] := lrsz[I] + ',';