1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

//MainForm
procedure TMain.FormShow(Sender: TObject);
begin
Start.Download;
end;

//StartForm

var
  Start: TStart;
  List:TStringList;

implementation

Uses Unit1;

{$R *.dfm}

Procedure TStart.Download;
begin
List.Create;
List.Text:= IDHttp1.Get('http://www.happy-pcs.de/shop/file1.data');
List.SaveToFile(ExtractFilePath(ParamStr(0))+'\file1.data');
end;					

1:

List:=TStringList.Create;					

1:

List.Free;