1:

memo1.lines.LoadFromFile('http://domain.tld/datei.txt');					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

uses ... URLmon, ShellAPI;

function download(url, pfad:string): Boolean;
begin
  Result := UrlDownloadToFile(nil, PChar(url), PChar(pfad), 0, nil) = 0;
end;

procedure TForm1.Create(Sender: TObject);
begin
  if download('http://www.domain.de/datei.txt',ExtractFilePath(Paramstr(0)) + 'datei.txt') then begin
  memo1.lines.loadfromfile(ExtractFilePath(Paramstr(0)) + 'datei.txt');
end
else ShowMessage('Fehler beim Download!');