> Ok, then please show us the complete error message, including the > line numer.
This is a code: procedure TForm1.HeartBeat(Sender: TObject); var lBlkSock: TBlockSocket; lDownloaded: Integer; begin lBlkSock := TBlockSocket(Sender); lDownloaded:= lBlkSock.RecvCounter; Self.Caption := Format('%d', [lDownloaded]); end; procedure TForm1.FormCreate(Sender: TObject); begin HTT := THTTPSend.Create; HTT.Sock.OnHeartbeat:=@HeartBeat; HTT.Sock.HeartbeatRate := 5000; Response := TStringList.Create; HTT.KeepAlive := true; HTT.protocol := '1.1'; //'1.1', '1.0' (default) and '0.9'. HTT.MimeType := 'text'; HTT.UserAgent := 'synapse'; HTT.Sock.OnStatus := callback.Status; end; The compiler error message is: "Variable required". The error line is 15 and it is: "HTT.Sock.OnHeartbeat:=@HeartBeat;" -- best regards Piotr Polok ------------------------------------------------------------------------------ Got Input? Slashdot Needs You. Take our quick survey online. Come on, we don't ask for help often. Plus, you'll get a chance to win $100 to spend on ThinkGeek. http://p.sf.net/sfu/slashdot-survey _______________________________________________ synalist-public mailing list synalist-public@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/synalist-public