listview赋值问题

[zjgngp]

ListView1.Items.Clear;
while not eof do
begin
Titem:=ListView1.Items.add;
Titem.SubItems.Add(FieldByName('姓名').asstring);
Titem.SubItems.Add(FieldByName('部门').asstring);
Titem.SubItems.Add(FieldByName('工种').asstring);
Titem.subitems.Add('''+trim(edit1.text)+''');
Titem.subitems.Add('''+trim(edit2.text)+''');
Titem.subitems.Add('''+trim(edit3.text)+''');
Titem.subitems.Add('''+trim(edit4.text)+''');
Titem.subitems.Add('''+trim(edit5.text)+''');
Titem.subitems.Add('''+trim(edit6.text)+''');
Titem.subitems.Add('''+trim(edit7.text)+''');
Titem.subitems.Add('''+DateTimeToStr(DateTimePicker3.date)+''');
Titem.subitems.Add('''+trim(edit11.text)+''');
Titem.subitems.Add('''+trim(edit12.text)+''');
next;
end;

姓名，部门，工种是冲数据表里赋值的。运行是可以的，可是我同时还想从EDIT里赋值过来，运行出来出现的直接是edit那些名称而不是EDIT控件里的数据。我知道语句肯定写错了，请问大家怎么写发

[SuperTitan001]

Titem.subitems.Add(trim(edit1.text);

[bdmh]

搞这么多引号干吗
直接Titem.subitems.Add(Trim(Edit1.Text);

[zjgngp]

[Quote=引用 2 楼 bdmh 的回复:]
搞这么多引号干吗
直接Titem.subitems.Add(Trim(Edit1.Text);
[/Quote]
帅哥，谢谢~哈哈~