[fidoshnik]

полазил по инету нашел, такой примерчик

Код:

 
mpfds := TIdMultiPartFormDataStream.Create(Self);
    mpfds.AddFormField('имя', 'Вася');
    mpfds.AddFormField('фамилия', 'Пупкин');
    Memo1.Text := IdHTTP1.Post('http://server.lv/register.php', mpfds);
    mpfds.Free;

компилятор кроет благим матом вот эту стоку

Код:

mpfds := TIdMultiPartFormDataStream.Create(Self);

с таким предложением

Код:

[Error] Unit1.pas(33): Too many actual parameters

вот весь листинг програмы

Код:

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP, IdMultipartFormData;
 
type
  TForm1 = class(TForm)
    IdHTTP1: TIdHTTP;
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
  procedure TForm1.Button1Click(Sender: TObject);
  var
    mpfds: TIdMultiPartFormDataStream;
  begin
    mpfds := TIdMultiPartFormDataStream.Create(Self);
    mpfds.AddFormField('имя', 'Вася');
    mpfds.AddFormField('фамилия', 'Пупкин');
    Memo1.Text := IdHTTP1.Post('http://server.lv/register.php', mpfds);
    mpfds.Free;
  end;

end.

незнаю даже как исправить перековырял все что мог без результата..
поправте что не так