Не могу разобраться с ListView в delphi

[DannyKing]

пишу прогу для работы с почтой.
для того чтобы мыло с прицепом отправить, (кроме всего остального) есть поле ListView в которое записывается attachment. С помощью open dialog все прекрасно работает, НО!...
надо добавить в attachment файл с прописаным в edit path-ом... как это сделать!!!! т.е. добавить attach не через open dialog, а чтобы по определенному событию прога брала в edit-e путь и добавляла файл сама!!!.
помогите, плз.

[DannyKing]

кусок проги.
процедура по таймеру копирует файлы с помощью copy, потом архивирует и должна отправлять на почту... нужные настройки smtp стоят...
procedure TfmMain.arCopytime(Sender: TObject);
var
Time: TDateTime;
hh, mm, ext: integer;
s: string;
{sr: tsearchrec;
ListItem: TListItem; }
begin
Time := Now();
Timer_pt.Caption := FormatDateTime('hh:mm:ss',Time);
if flag = true then begin
//if (checkbox1.Checked = true) or (checkbox2.Checked = true) then begin
if Timer_pt.Caption = AutoCopyTime.text then
begin
s := timetostr(Time);
ext := StrtoInt(intime.text);
hh := strtoint(s[1] + s[2]);
mm := strtoint(s[4] + s[5]);
mm := mm + ext;
if (mm > 59) then begin
hh := hh + 1;
mm := mm - 59;
end;
AutoCopyTime.Text := (IntToStr(hh)+':'+IntToStr(mm)+':00 ');
if Srs1.text <> ''then arCopyOne(Srs1.Text, Dst.Text);
if Srs2.text <> ''then arCopyOne(Srs2.Text, Dst.Text);
if Srs3.text <> ''then arCopyOne(Srs3.Text, Dst.Text);
Archiving(Sender);
end;
end;

проблема с нижеследующем коде... пробовал то, что написал... не работает..

{if checkbox2.Checked = true then
begin
edSubj.Text := 'archiv';
memText.Lines.Add ('working!');
if FindFirst(archpath.Text, faAnyFile, sr) = 0 then
begin
ListItem := lvAttachments.Items.Add; // создается объект
ListItem.Caption := sr.name;
end;
sbtSendClick(Sender);
end;}

end;
//end;