Probier es mal so wie das in dem Post von mir gemacht ist:
http://www.delphipraxis.net/1035334-post12.html
PS. Ich würde dir auch dringend dazu raten, den Rückgabe wert auszuwerten, und erst bei erfolgreichem Verbinden, EnumEndPoints usw. aufzurufen...