참고하셔요.

function IsDefaultPrinterSetup: boolean;
var
FDevice: PChar;
FDriver: PChar;
FPort: PChar;
FHandle: THandle;
CurrentPrinterName: string;
begin
GetMem(FDevice,255);
GetMem(FDriver,255);
GetMem(FPort,255);
try
   try
     Printer.GetPrinter(FDevice, FDriver, FPort, FHandle);
     CurrentPrinterName := FDevice;
     if CurrentPrinterName <> '' then
     begin
       result := True;
     end
     else
     begin
       result := False; // 기본프린터 없음
     end;
   except
     on Exception do
     begin
       result := False;
     end;
   end;
finally
   if FDevice <> nil then
     FreeMem(FDevice, 255);
   if FDriver <> nil then
     FreeMem(FDriver, 255);
   if FPort <> nil then
     FreeMem(FPort, 255);
end;
end;

begin
Application.Initialize;

if IsDefaultPrinterSetup then
begin
   // 원래 .DPR 파일에 있는 폼생성 루틴입니다
   Application.CreateForm(TForm1, Form1);
   Application.CreateForm(TForm2, Form2);
   Application.Run;
end
else
begin
   ShowMessage('이 프로그램을 실행하기 전에 '+
               '먼저 기본 프린터를 설정하세요');
end;
end.