Не пойму куда вбивать

[JRcoker]

function HttpGet(server,url:string; var header:string):string;
 var
  handle:integer;
  sin,sout:textfile;
  s:string;
 begin
  handle:=callserver(server,80);
  if handle<=0 then begin
   result:='';
   exit;
  end;
  assigncrtsock(handle,sin,sout);
  writeln(sout,'GET ',url,' HTTP/1.0');
  writeln(sout,'User-Agent: Mozilla/4.0 (compatible; MSIE 5.5; Windows 98; FREE)');
  if header<>'' then writeln(sout,header);
  writeln(sout);

  header:='';
  result:='';

  readln(sin,s);
  while s<>'' do begin
   header:=header+s;
   readln(sin,s);
  end;

  while not eof(sin) do begin
   readln(sin,s);
   result:=result+s;
  end;

  disconnect(handle);
 end;

куда тут писать сервер и порт?