Winsockcode --->Indycode

[ATwardz]

Hi!

Ich habe folgendes Problem, ich möchte diesen Code auf die Indy komponenten übertragen, scheitere aber an der Pointervar und bekomme immer eine Fehlermeldeung!
Wäre sehr nett wenn mir jemand sagen könnte wie ich das anstelle!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var format:pointer;
begin
 UDPsock1.RemoteIP:=edit1.text;
 format:=ACMDialog1.OpenDialog;
 if format=nil then exit;
 UDPSock1.Start;
 ACMWaveOut1.Open(format);
 ACMWaveIn1.Open(format);
 Button1.Enabled:=false;
 Button2.Enabled:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 ACMWaveIn1.Close;
 ACMWaveOut1.Close;
 UDPSock1.Stop;
 Button1.Enabled:=true;
 Button2.Enabled:=false;
end;

procedure TForm1.ACMWaveIn1Data(data: Pointer; size: Integer);
begin
 UDPSock1.Send(data,size);
end;

procedure TForm1.UDPSock1Recv(data: PChar; delka: Integer; host: String);
begin
 ACMWaveOut1.PlayBack(data,delka);  
end;

Vielen Dank für alle Antworten!