IPs auslesen und in Variable legen

[internetnavigator]

Delphi-Quellcode:

unit Ip_read;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, WinSock, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  //result: string;   //<--- Muss ich diese Variable "aktivieren"

implementation

{$R *.dfm}


function TClassName.GetIpAddress(): string;  //<-- GetIpAdress --> Fehler: E2023 Funktion benötigt Ergebinstyp
var phoste: PHostEnt;
    Hostname: array [0..100] of char;
begin
  GetHostName(Hostname,Sizeof(Hostname));
  phoste:=GetHostByName(Hostname);
  if phoste = nil then result:='127.0.0.1'
  else result:=String(inet_ntoa(PInAddr(phoste^.h_addr_list^)^));
end;



end.

Woran könnte das (s. oben) liegen?
MegaThx!
mfg