prozedure aufrufen ??

[Vader]

hallo,


hätte da eine frage. wie rufe ich diese prozedure auf

Code:

procedure socketreadfile (Sender: TObject); 
  
var 
  iLen: Integer; 
  Bfr: Pointer; 
begin 
  iLen := Socket.ReceiveLength; 
  GetMem(Bfr, iLen); 
  try 
    Socket.ReceiveBuf(Bfr^, iLen); 
    FStream.Write(Bfr^, iLen); 
  finally 
    FreeMem(Bfr); 
  end; 

end;

so hab ichs probiert, aber ohne erfolg.

Code:

procedure TForm1.Button1.Click(Sender: TObject); 

begin
  SocketRedFile 

end.

mfg Vader