做为新手来说.这可是个难道.请各位高手帮帮忙,能不能让它们对号入座  2 里面的过程定义和TYPE、VAR、BEGIN。。END等这些要在 1 里哪个位置出现才不出编译错误？（先不管2里的是不是完整的程序）
这是库单元:-------------(用1来代表吧)
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

end.

这是一些代码:---------(用2来代表吧)
function   LocalIP:string;   
  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   :=   '';   
          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:=StrPas(inet_ntoa(pptr^[I]^));   
              Inc(I);   
          end;   
          WSACleanup;   
  end;