//uses kısmına eklenecekler ..
uses ActiveX, SHDocVw, Forms;
 
 
function wanIp: string;
var
  ip: string;
  ms :TMemoryStream;
  html : string;
  strSt : TStringStream;
  adapter: IStream;
  browserStream: IPersistStreamInit;
  WebBrowser1 : TWebBrowser;
  frm: Tform;
begin
  if InternetVarmi=False then
  begin
     Result :='-';
     exit;
  end;
 
  html := '
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Ana formun ismini yazabilirsiniz.! uses kısmına formun unit i yazmak istemdiğim için böyle kullandım !
 
  frm := Tform(Application.FindComponent('frmMain'));
  WebBrowser1 := TWebBrowser.Create(frm);
 
  WebBrowser1.Visible := False;
  WebBrowser1.Height := 1;
  WebBrowser1.Width  := 1;
 
 
  TWinControl(WebBrowser1).Parent := frm;
  WebBrowser1.Navigate(html);
 
 
  while WebBrowser1.ReadyState <> READYSTATE_COMPLETE  do
  begin
    Application.ProcessMessages;
  end;
 
 
   strSt := TStringStream.Create('');
 
   browserStream := webBrowser1.******** as IPersistStreamInit;
   adapter := TStreamAdapter.Create(strSt,soReference);
   browserStream.Save(adapter,true);
   ip := 'WAN IP : ['+strSt.DataString+']';
 
   FreeAndNil(strSt);
   FreeAndNil(WebBrowser1);
 
 
 
  result := ip;
 
end;