Minimalistisch 20 Zeichen auf Webseite hochladen geht nicht

[Byteworm]

Hallo liebe Experten!

Ich will minimalistisch 20 Zeichen hochladen und habe folgendes Codeschnipsel dafür gefunden:

Delphi-Quellcode:

procedure HTTPUpload( Url:String; Data: string);
var create, file_Url_handle    : Phandle;
    Data_written               : cardinal;
    i                          : integer;
    OK                         : Boolean;
    buffer                     : array[0..256] of char;
begin
  create := InternetOpen('Mozilla/4.0 (compatible)', INTERNET_OPEN_TYPE_PRECONFIG , NIL, NIL, 0);
  file_Url_handle:=InternetOpenUrl(create, pchar(Url), NiL, 0, INTERNET_FLAG_RAW_DATA, 0);
  if file_Url_handle<>nil then begin
    FillChar(buffer,sizeof(buffer),#0);
    For i:=1 to length(Data) do Buffer[i-1]:=Data[i];
    OK:=InternetWriteFile( file_Url_handle, addr(buffer), sizeof(buffer), Data_Written);
  end
  else begin
    MessageBox(0,'Could Not Resolve Host!','Error',0);
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  HTTPUpload( 'http://microsoft.com/feedback/feedback.txt', 'HastalaVISTA Baby!');
end;

Nun, warum schreibe ich diesen Beitrag? Es geht net
Keine Fehlermeldung, "Data_Written" = 0. Alle Rechte im Uploadordner freigeschaltet (777).

Hat jemand der Experten hier im Forum einen hilfreichen Tip?
Es gibt zwar andere Codeschnipsel, aber so wie ich es verstanden habe, wird bei dieser Implementierung ein eventueller Proxy durch "INTERNET_OPEN_TYPE_PRECONFIG" ebenfalls berücksichtigt bzw. genutzt.

Wäre für einen Tip sehr dankbar!

Beste Grüße,
Der Byteworm

PIV/2500, Wxp SP3, D7Ent, Brille