[nomas]

Ok, I made it.

But MSIE needed.

procedure summitdata(const URL, iname, itype, izone, iloc, nodesc, idesc, user : string);
var
 WebBrowser1: Variant;
 VPostData, VFlags, VFrame, VHeaders: OleVariant;
 iLoop: Integer;
 PostData: string;
begin
 PostData := 'name='+iname+'&type='+itype+'&zone='+izone+'&loc='+iloc+'&nodescription='+nodesc+'&description='+idesc+
        '&submitting=1&username='+user+'&summit=Submit this POI';
 WebBrowser1 := CreateOleObject('InternetExplorer.Application');

 if Length(PostData)> 0 then
 begin
  VHeaders := 'Content-Type: application/x-www-form-urlencoded'+ #10#13#0;
  VPostData := VarArrayCreate([0, Length(PostData)], varByte);
  for iLoop := 0 to Length(PostData)- 1 do
  begin
    VPostData[iLoop] := Ord(PostData[iLoop+ 1]);
  end;
  VPostData[Length(PostData)] := 0;
  TVarData(VPostData).vType := varArray;
 end;

 VFlags := 0;
 WebBrowser1.Navigate2(url, VFlags, VFrame, VPostData, VHeaders);
 WebBrowser1.Visible := True;
end;