Desenvolvimento Gerenciador de download para Linux

[Senhor_Unix]

Estou desenvolvendo um gerenciador de download para Linux, através do Lazarus,baseado nesse tutorial:

Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar...

Precisa especificar o diretório /home/ e usar o componente IdHttp,como apresento nessa vídeo aula:

[ame="www.youtube.com/watch?v=xIN7lfszBm0&list=UU6vY-0U8AxpSMGE_VR3xN_Q"]www.youtube.com/watch?v=xIN7lfszBm0&list=UU6vY-0U8AxpSMGE_VR3xN_Q[/ame]

[Senhor_Unix]

Indy para o Lazarus

Estou disponibilizando o Indy para o Lazarus,para que você possa ter o componente IDHttp e possa fazer o seu gerenciador de downloads para Linux,se conseguir disponibilize o código-fonte aqui neste tópico.

Download do arquivo Indy

Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar...

[Senhor_Unix]

Programa já desenvolvido

Eu executo o meu programa Gerenciador de downloads no Lazarus,porém ele não salva o arquivo no meu Desktop,ou seja não salva em lugar nenhum,o que pode ser....

Alguém pode me ajudar?

veja o código fonte:

procedure TForm1.Button1Click(Sender: TObject);

var
  URL, Arq : string;
  MyFile: TFileStream;
begin
// Definir o link
URL := Edit1.Text;  // Aqui fica o caminho de onde ira fazer o download , pode ser trocado por um edit, etc..
Arq := ExtractFileName(StringReplace(URL,'/','\',[rfReplaceAll]));
  try  // Nome do arquivo para download
MyFile := TFileStream.Create('Desktop',fmCreate);  //Local no hd e nome do arquivo com a extensão, onde vai salvar.
try
 IdHTTP1.Get(URL, MyFile); // Fazendo o download do arquivo
finally
MyFile.Free;
end;

  finally
  end;



end;




procedure TForm1.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Int64);
begin
  ProgressBar1.Position := AWorkCount;
end;

procedure TForm1.IdHTTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCountMax: Int64);
BEGIN
  ProgressBar1.Position:=10;
Sleep(150);
ProgressBar1.Position:=20;
Sleep(150);
ProgressBar1.Position:=30;
Sleep(150);
ProgressBar1.Position:=40;
Sleep(150);
ProgressBar1.Position:=50;
Sleep(150);
ProgressBar1.Position:=60;
Sleep(150);
ProgressBar1.Position:=75;
Sleep(150);
ProgressBar1.Position:=90;
Sleep(150);
ProgressBar1.Position:=100;
Sleep(150);

Showmessage('Terminou!');
ProgressBar1.Position := 0;
ProgressBar1.Max := AWorkCountMax;
Label1.caption := 'Download em andamento, espere!';

end;

procedure TForm1.IdHTTP1WorkEnd(ASender: TObject; AWorkMode: TWorkMode);
begin
ProgressBar1.Position := ProgressBar1.Max;
Label1.caption := 'Download Concluído!';
end;



end.

[Senhor_Unix]

Dúvida

Ouvi falar que é preciso utilizar o GetEnviromentVariable para terminar o meu programa,gostaria de saber:

Onde coloco o GetEnviromentVariable no meu código-fonte?