[ZveR_37rus]

Так как я делаю у меня не получается и нет смысла этого показывать!
короче нужна лишь одна строчка
uses ShellAPI;
....
var
s:string;
begin
s:=Edit1.Text;
//////////////////// вот тут что нужно ввести?
end;