질문 내용이 잘 이해가 안 가지만서도...
음 일반적으로 우리가 쓰기 편한 함수들을 모아서 하나의 Pas화일을 만드는 것은 다른 프로젝트에도 그 Pas화일을 유용하게 쓰고자 함입니다.
근데 거기서 지금 프로젝트에 포함된 파일을 uses하시면 다른 프로젝트에서 쓰실때는 그 부분을 수정하셔야겠죠?
그니까 자신만의 함수를 모아서 만드는 Pas 화일은 독립적이어야 합니다.
가령...
Memo 컴포넌트에...주어진 숫자(임의로 StartInt)부터 주어진 숫자(임의로 EndInt)까지 1씩 증가해서 입력하는 함수가 필요하다라고 했을 때

procedure MemoADDInt(MyMemo : TMemo; StartInt : integer; EndInt : integer);
var
  Loop : integer;
begin
  for Loop := StartInt to EndInt do
  begin
     MyMemo.Lines.add(IntToStr(Loop));
  end;
end;

이렇게 짜두시면... 해당폼에서는 인자 넘겨주시고 위의 함수만을 호출하면 됩니다.. 그럼 괜히 서로가 서로를 uses 해야하는 상황을 피할 수 있습니다.

더 말씀 드리자면... 저 함수를 더욱 유용하게 만들기 위해서는
procedure MemoADDInt(MyObject : TObject ; StartInt : integer; EndInt : integer);
var
  Loop : integer;
begin
  for Loop := StartInt to EndInt do
  begin
    if (MyObject is TMemo) then
    begin
      TMemo(MyObject) .Lines.add(IntToStr(Loop));
    end else if (MyObject is TListBox) then
    begin
       TListBox(MyObject) .Items.add(IntToStr(Loop));
    end;
  end;
end;

이렇게 만드시면 TMemo 뿐만 아니라 TListBox도 넘길 수 있고...코딩을 더
추가 하신다면 TListView...등등도 넘길 수 있게 되어서...여기저기 프로젝트에서 쉽게 쓸 수 있습니다..

그리고 저렇게 오브젝트 자체를 넘기는 방식으로 짜고 싶지 않다고 하시면...
TMemo 혹은 TObject 대신에 TStrings 를 인자로 해서 짜실 수도 있습니다.

procedure MemoADDInt(MyItems : TStrings; StartInt : integer; EndInt : integer);
var
  Loop : integer;
begin
  for Loop := StartInt to EndInt do
  begin
     MyItems.add(IntTOStr(Loop ));
  end;
end;

이렇게 하시고 호출하실 때
MemoAddInt(Memo1.Lines,1,100); 이런식으로 하시면 됩니다..

어쨌건...결론적으로는 님께서 쓰기 편한 함수들을 모아놓은 Pas화일은
프로젝트 독립적이어야 한다는 겁니다... 클래스 파일 역시 그 파일 안에서
프로젝트의 이 폼 저 폼을 uses 시키는 일이 없도록 독립적으로 만들어 놓아야
다른 프로젝트의 적은 수정으로 그 클래스 파일을 갖다 쓰실 수 있습니다.

주신 답변 너무 감사드립니다.

제가.. 4gl 쪽 프로그래머로 일하다..웹프로그램만 짠지.. 3년가까이 되는동안..
응용프로그램도 웹 빗스하게 짜게 된거 같아요..(그렇다고 웹프로그램이 안 좋다는 것이 아니라 제가.. 다 허접해서 그런거 같아요..)

주신답변으로 많은 것을 깨달았습니다......

ㅎㅎ 네~
저는 제가 질문을 잘못 이해한 게 아닌가..걱정했는데 다행이네요