这些代码应该加在库单元里的哪个位置?(30分)

做为新手来说.这可是个难题.请各位高手帮帮忙,能不能让它们对号入座[tk16] 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^ <> nil do
begin

result:=StrPas(inet_ntoa(pptr^^));

Inc(I);

end;

WSACleanup;

end;

放在{$R *.dfm}下面，然后按一下CTRL+c

接受答案了.