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

procedure TForm1.FormCreate(Sender: TObject);
var
  Source: TMemoryStream;
  Response: TStringStream;
begin
Response := TStringStream.Create('');
Source := TMemoryStream.Create;
              try
                Source.LoadFromFile(memo3.Text);
                HTTP.Post('http://www.magiccards.info/preferences.html', Source, Response);
              finally
                Source.Free;
              end;
end;					

1:
2:
3:
4:
5:

var
  http : TIdHTTP;
begin
  http := TIdHTTP.Create;
...