İnternetten Dosya indirirken hata ?

[Cyberbob]

uses kısmına ShellApi ve UrlMon unitlerini ekleyin.

function DownLoadInternetFile(Source, Dest : String): Boolean;
begin
try
Result := URLDownloadToFile(nil,PChar(Source),PChar(Dest),0,nil) = 0
except
Result := False;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
SourceString, DestinationString: string;
begin
SourceString := 'http://www.tcmb.gov.tr/kurlar/today.html';
DestinationString := 'c:\bugun.html';

if DownLoadInternetFile(SourceString, DestinationString) then
ShellExecute(Application.Handle, PChar('Open'), PChar(DestinationString), PChar(''), nil, SW_NORMAL)
else
MessageDlg('Dosya indirilemedi!', mtError, [mbOK], 0);
end;

slm ben bu kodla internetten dosya indirmek istiyorum
İndireceğim dosyayı edit1.text
SourceString :=edit1.text;
Kaydedeceğim yeride edit2.text
yaptığım zaman

MessageDlg('Dosya indirilemedi!', mtError, [mbOK], 0);

bu kod calışıo ve dosyam inmiyor bu neden olabilir

[Trial_Cooder]

SourceString := PChar(Edit1.Text);
DestinationString := PChar(Edit2.Text);
bide bunu dene