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

procedure tform2.postcode(URL: string; Filename: String);
var
data : TIdMultiPartFormDataStream;
files : Tfilestream;
link: string;
begin
link:=form2.edit2.text; // für den Aufruf, ich dachte das ändert was
files:= Tfilestream.create(Filename,fmcreate); // erstellt einen filestream
Data:=TIdMultiPartFormDataStream.Create;  
Data.AddFormField('accesscode','value='+form2.edit1.text); // tut den accesscode rein
form2.idHttp1.Post(url,data,files);  //postet zur url die data und soll files zurückbekommen
end;                    

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

var
link: String;
begin
link:=label14.caption;     ////////////////////////////////////////
edit2.text:=link;          ////////Ich hatte das Gefühl das////////
link:=edit2.text;          ////////es was mit dem Link zu tun hat//
delete(link,1,1);          ////////(im Edit war immer ein space vorm link, das wird hierdurch weg gemacht)//
edit2.text:=link;          ////////////////////////////////////////
Application.ProcessMessages;
Postcode(link,'79-80.rar');

end;