obtener dirección IP y mostrarla en un EditText

[[seoane]]

Obtener la dirección es sencillo:

Código Delphi [-]
Uses Winsock;

function GetIp: string;
var
  Buffer: array[0..127] of char;
  WSAData: TWSADATA;
  HostEnt: phostent;
begin
  Result:= '';
  FillChar(Buffer,Sizeof(Buffer),#0);
  if WSAStartup(MAKEWORD(1, 1), WSADATA) = 0 then
  begin
    if GetHostName(@Buffer,Sizeof(Buffer)) = 0 then
    begin
      HostEnt:= gethostbyname(@Buffer);
      if HostEnt <> nil then
        Result:= String(inet_ntoa(PInAddr(HostEnt.h_addr_list^)^));      
    end;
    WSACleanup;
  end;
end;

Lo que no entiendo es que quieres decir con "pintar". Para mostrar la ip en un TEdit, seria algo como esto:

Código Delphi [-]
  Edit1.Text:= GetIp;

¿Es eso lo que buscas?