تبدیل نوع tstring به string

[Borland-Delphi7]

با سلام من یک تابع برای بدست آوردن ip سیستم دارم که خروجی آن از نوع tstring است میخواهم تبدیلش کنم به string

function getips:tstrings;
type
TaPInaddr=array[0..10] of PInAddr;
PaPInAddr=^TaPInaddr;
var
phe:PHostEnt;
pptr:PaPInAddr;
buffer:array[0..63] of char;
i:integer;
GInitData:TWSAData;
begin
WSAStartup($101,GInitData);
Result:=TStringList.Create;
Result.Clear;
gethostname(buffer,sizeof(buffer));
phe:=gethostbyname(buffer);
if phe=nil then exit;
pptr:=PaPInAddr(phe ^.h_addr_list);
i:=0;
while pptr ^[i] <> nil do
begin
Result.Add(inet_ntoa(pptr^[i]^));
Inc(i);
end;
WSACleanup;
end;

شمرده که اینجور کد را گذاشتم آخه Browser من دکمه های مربوط به قسمت کد و غیره را ساپورت نمیکن

[vcldeveloper]

خودش متد Text داره که از نوع string هست. مثلا:

MyString := MyTStrings.Text;