아래는 Excel의 매크로 기록 내용 입니다.
엑셀에는 텍스트박스를 미리 만들어 놓은 상태구요
그 텍스트박를 선택해서 값을 준 매크로 내용인데요...  

    ActiveSheet.Shapes("Text Box 4").Select
    Selection.Characters.Text = "(테스트)"
    //위 두줄을 델파이소스로 구현 하려는데  안되네요...
    //고수님들 도와 주십시요.

    ActiveSheet.Shapes("Text Box 29").Select
    Selection.Characters.Text = "텔레콤"

    ActiveSheet.Shapes("Text Box 34").Select
    Selection.Characters.Text = "2002-11-01"
    With Selection.Characters(Start:=1, Length:=10).Font
        .Name = "돋움"
        .FontStyle = "굵게"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("C13").Select

//아래는 델파이소스입니다]
try
     Excel.WorkBooks.Open('c:usc명세표.xls'); //파일열기
     Excel.Sheets['명세표'].select;
   except
      MessageDlg('원하는 Sheet를 찾을 수 없습니다.', MtWarning, [mbok], 0);
      Excel.Quit;
      Exit;
   end;
   i := 0; j := 0;
   try
     //Excel.Shapes['Text Box 4'].value := '잡지10월';
     //Excel.Sheets['명세표'].characters.Text :='잡지10월';

     //ActiveSheet.Shapes('Text Box 4').Select;
     //Selection.Characters.Text :='잡지10월';
     //이런...모두 안되네요...