===================================================================
'--------------------------------------------------
'   Start of Header character
'--------------------------------------------------
'   Input = Label_Count% =  발행수량
'           TotVbr% = 라벨가로길이
'           TotHbr% = 헤드세로위치
'   Output = 없음
'--------------------------------------------------
Function PrtHead%(Label_Count$, Cut$, TotVbr$, TotHbr$)
    Open "LPT1" For Output As #1
    TotHbr$ = Trim(Str(Val(TotHbr) + Val(PS3000.Text_Hbr)))
    Print #1, "~^" & Chr(34) & "TEST" & Chr(34) & ";" _
              + Label_Count + ";" + Cut + ";" + TotVbr + ";" + TotHbr + ";SPB;"
    
End Function
===================================================================
이함수는 바코드를 프린터기로 출력을 할때 사용하는 프로그램의 모듈부분으로(비베프로그램)  이함수를 델파이로 변환할라고 시도를 여러번 해봤는데
자꾸 에러가 나서 ^^;
LPT1으로 출력되고요, 특정 프린터기에 해당하는 명령어들이 섞여있기
때문에 아는 사람들이 거의 없더라구요..(제 개인적인 생각)

맨위에 PrtHead% 이부분이 헤드파일 부분인데
내용인즉 PrtHead%("1", "0", "118", "200")  // 118,200 은 가로세로 좌표
PS3000.text_Hbr 부분에 5 라는 숫자를 입력하면  200 이라는 세로 좌표에
5가 합해져서 세로가 205 가 되는것이죠..
ㅡㅡ; 무슨말인지 이해하는 사람이 있을라나...

======== 델파이로 짠 부분(기본적인거..) ============
procedure TForm1.Button1Click(Sender: TObject);
var prnfile : textfile;
    PrinterCom: THandle;
    PrnComDCB: TDCB;

begin

  AssignFile(Prnfile,'LPT1');
  Rewrite(PrnFile);
  writeln(PrnFile,'~^"AGABANG";1;0;118;200;'); // 헤드파일 부분
  writeln(PrnFile,'SPB;'); // 인쇄시작부분
  writeln(prnfile, 'VBR;81;HBR;90;DDF;2;1;DFM;2;2;DFS;1;DFO;1;1;');
  writeln(prnfile, '"'+ trim(esn.Caption) +'";'); // 번호값
  writeln(prnfile, 'VBR;100;HBR;100;BDEF;1;BCSH;12;BNEW;4;BWEW;9;BCST;'+'"'+'*'+ trim(esn.Caption) +'*'+'";BSTP;'); //번호값을 바코드로 바꾸는 부분
  writeln(PrnFile,'TRM;'); // 인쇄 종료부분
  CloseFile(PrnFile);
end;

---   ㅡㅡ; 관심있으신분들 답변 부탁드립니다.. ------------
** 관심은 있는데 무슨내용인지 도무지 모르겠다 하시는분들... 답변주시면
   더 자세히 설명드리겠슴다 ...