[snake-yava]

Хочу написать загрузчик файлов, только не знаю как выглядит запрос который серверу посылается...

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  Flags, TargetFrameName, PostData, Headers: OleVariant;
  S: String;
begin
file1:=edit1.text;file2:=edit2.text;file3:=edit3.text;file4:=edit4.text;
file5:=edit5.text;file6:=edit6.text;file7:=edit7.text;file8:=edit8.text;
file9:=edit9.text;
folderID:=edit10.text;
if checkbox1.Checked then file_close:='CHECKED' else file_close:='UNCHECKED';
metki:=edit11.text;
if checkbox2.Checked then all_read1:='CHECKED' else all_read1:='UNCHECKED';
if checkbox3.Checked then all_write1:='CHECKED' else all_write1:='UNCHECKED';
if checkbox4.Checked then reg_read30:='CHECKED' else reg_read30:='UNCHECKED';
if checkbox5.Checked then reg_write30:='CHECKED' else reg_write30:='UNCHECKED';
if checkbox6.Checked then frnds_read2:='CHECKED' else frnds_read2:='UNCHECKED';
if checkbox7.Checked then frnds_write2:='CHECKED' else frnds_write2:='UNCHECKED';
if checkbox8.Checked then moder_read29:='CHECKED' else moder_read29:='UNCHECKED';
if checkbox9.Checked then moder_write29:='CHECKED' else moder_write29:='UNCHECKED';

    S := Format('file_subject[]=%s&file_subject[]=%s&file_subject[]=%s&'+
    'file_subject[]=%s&file_subject[]=%s&file_subject[]=%s&file_subject[]=%s&'+
    'file_subject[]=%s&file_subject[]=%s&file_folder_id=%s&file_close=%s&'+
    'message_tags=%s&access_read1=%s&access_write1=%s&access_read30=%s&'+
    'access_write30=%s&access_read2=%s&access_write2=%s&access_read29=%s&'+
    'access_write29=%s&add_multifile_action',
    [file1,file2,file3,file4,file5,file6,file7,file8,file9,folderID,file_close,metki,all_read1,all_write1,reg_read30,reg_write30,frnds_read2,frnds_write2,moder_read29,moder_write29]);
    PostData := VarArrayCreate([1, Length(S) + 1], varByte);
    System.Move(S[1], VarArrayLock(PostData)^, Length(S) + 1);
    VarArrayUnlock(PostData);
    Headers :='Content-Type: multipart/form-data'#10#13;
    WebBrowser1.Navigate('http://snake-yava.mylivepage.ru/file', Flags,TargetFrameName, PostData, Headers);

end;