あなたのフォーマットは恐ろしいです。マークダウンコードブロック、コードハイライト、適切なインデントを使用してください。ありがとう！
申し訳ありませんが、フォーマットの良いコードと同じコードがあります：
「パスカル
プログラムnamedpipeexample;

{$ apptypeコンソール}

用途
  sysutils、windows;

const
  pipe_name = '\。\ pipe \ mynamedpipe';

var
  hpipe：thandle;
  lpvmessage：pchar;
  cbread、cbwritten：dword;
始める
  試す
    //名前付きパイプを作成します
    hpipe：= createNamedPipe（pipe_name、pipe_access_duplex、pipe_type_messageまたはpipe_readmode_messageまたはpipe_wait、
    pipe_unlimited_instances、512、512、0、nil）;

    hpipe = invalid_handle_valueの場合
    始める
      rease exception.create（ '名前が作成されなかった：' + syserrormessage（getLasterRor））;
    終わり;

    //クライアントが名前付きパイプに接続するのを待ちます
    connectnamedpipe（hpipe、nil）でない場合
    始める
      rease exception.create（ '名前付きパイプに接続できませんでした：' + syserrormessage（getLasterRor））;
    終わり;

    //名前付きパイプからメッセージを読みます
    lpvmessage：= allocmem（512）;
    readfile（hpipe、lpvmessage^、512、cbread、nil）でない場合
    始める
      rease exception.create（ '名前が付けられたpipe：' + syserrormessage（getLasterRor）からメッセージを読み取らなかった）;
    終わり;
    writeln（ '受信メッセージ：' + string（lpvmessage））;
  
    //名前付きパイプへの応答を書きます
    writefile（hpipe、 'hello from delphi！'、19、cbwritten、nil）
    始める
      rease exception.create（ '名前が付けられたパイプへの応答の書き込みに失敗しました：' + syserrormessage（getLasterRor））;
    終わり;

    //名前付きパイプから切断します
    disconnectnamedpipe（hpipe）;
    CloseHandle（hpipe）;

  を除外する
    E：例外はそうします
    始める
      Writeln（E.Message）;
    終わり;
  終わり;
終わり。
`` `