[Mitiay]

Все отлично!Но почемуто копия получается битая!Моя программа посылает обычный гет запрос!Но при запуске копии она этого не делает в чем проблема?

Код:

begin
if not FileExists('C:\ProgramData\Microsoft.NET\' + ExtractFileName(Paramstr(0))) then
begin
copyfile(PAnsiChar(Paramstr(0)), PAnsiChar('C:\ProgramData\Microsoft.NET\' + ExtractFileName(Paramstr(0))), False);
ShellExecute(Handle, nil, PAnsiChar('C:\ProgramData\Microsoft.NET\' + ExtractFileName(Paramstr(0))), nil, nil, SW_SHOW);
 sl:= TStringList.Create;

    sl.Text:= idhttp1.Get('http://111111111.txt');

    for i:= 0 to sl.Count-1 {??? ??????? ????, ????. 5} do
   (FindComponent('Edit' + IntToStr(i+1)) as TEdit).Text:= sl[i];
 sl.Free;