Program Delphi yang dijelaskan dalam contoh ini digunakan untuk mendeteksi apakah URL tersebut 404, yaitu untuk mendeteksi apakah URL tersebut ada atau dapat dibuka.
Kode utama programnya adalah sebagai berikut:
alamat unit;antarmukamenggunakan Windows, Pesan, SysUtils, Kelas, Grafik, Kontrol, Formulir, Dialog, Psock, NMHttp, StdCtrls, ComCtrls;ketik TForm1 = kelas(TForm) Label1: TLabel; ; StatusBar1: Prosedur TStatus; Button1Click(Pengirim: TObject); prosedur NMHTTP1Success(Cmd: CmdType); prosedur NMHTTP1Failure(Cmd: CmdType); prosedur NMHTTP1HostResolved(Pengirim: TObject); NMHTTP1Connect(Pengirim: TObject); prosedur NMHTTP1ConnectionFailed(Pengirim: TObject); prosedur FormActivate(Pengirim: TObject); prosedur FormClose(Pengirim: TObject; var Action: TCloseAction); TObject; var Kunci: Kata; Shift: TShiftState); pribadi { Deklarasi pribadi } public { Deklarasi publik } end;var Form1: TForm1;implementasi{$R *.DFM}prosedur TForm1.Button1Click(Sender: TObject);var url:string;begin url:=Edit1.Text; Memeriksa';NMHTTP1.Head(url);end;prosedur TForm1.NMHTTP1Success(Cmd: CmdType);mulai kasus cmd dari CmdHEAD: StatusBar1.SimpleText:='URL benar' akhir;akhir;prosedur TForm1.NMHTTP1Failure(Cmd: CmdType);mulai kasus cmd dari CmdHEAD: StatusBar1.SimpleText: =' URL salah, tidak ada prosedur akhir;akhir;halaman seperti itu TForm1.NMHTTP1HostResolved(Sender: TComponent);begin StatusBar1.SimpleText:='Nama host dapat diselesaikan dengan benar';end;prosedur TForm1.NMHTTP1InvalidHost(var Handled: Boolean);begin StatusBar1.SimpleText:='Nama host tidak boleh terselesaikan';akhir; prosedur TForm1.NMHTTP1AuthenticationNeeded(Pengirim: TObject);begin StatusBar1.SimpleText:='Otentikasi diperlukan';end;prosedur TForm1.NMHTTP1Connect(Sender: TObject);begin StatusBar1.SimpleText:='Connect to host';end;procedure TForm1.NMHTTP1ConnectionFailed(Sender: TObject) ; mulai StatusBar1.SimpleText:='Gagal terhubung ke host';akhir;prosedur TForm1.FormActivate(Pengirim: TObject);mulai Edit1.Teks:='http://www.';akhir;prosedur TForm1.FormClose(Pengirim: TObject; var Action: TCloseAction);mulai NMHTTP1.Destroy;akhir;prosedur TForm1 .NMHTTP1Redirect(var Ditangani: Boolean);mulai StatusBar1.SimpleText:='Alihkan ke halaman lain';akhir;prosedur TForm1.Edit1KeyDown(Pengirim: TObject; var Key: Word; Shift: TShiftState);mulai jika Key=VK_RETURN lalu mulai StatusBar1.simpletext:='Verifying' ; .Head(Edit1.Teks); akhir;akhir;akhir.