우선 질문하신 소스에 오류가 있습니다..

  assignfile(fh,'c:\inetpub\wwwroot\guestbook\config\severip.txt');
  reset(fh);
  readln(scriptorgin); --> ReadLn(fh, ScriptOrigin);
  closefile(fh);
  scriptname := scriptorgin;

그리고 단순히 택스트화일을 부르시는 거라면..
TMemo 또는 TStringList를 이용하셔도 됩니다..

  Memo1.Lines.LoadFromFile('c:\inetpub\wwwroot\guestbook\config\severip.txt');
  Try
    ScriptOrigin:= Memo1.Lines.Strings[0];   
  Except
  End;
  // 화일이 비어있을 땐 에러가 나니 Try Except로 막아주세요..
  // 또는 화일에 한 줄만 넣으실거면..
  ScriptOrigin:= Memo1.Text;

From 류..