NetSend mit empfangs bestätigung ?

[glunzl]

Moin!
Zum ersten Posting habe ich mal eine Frage.

Delphi-Quellcode:

function NetMsgSend(const ServerName, MsgName, FromName, Msg: WideString): Integer; 

function WC(const Name: WideString): PWideChar; 
  begin 
    if Name = '' then Result := nil 
      else Result := PWideChar(Name); 
  end;

Wieso steht denn dort 2 mal untereinander "function" und nicht

Delphi-Quellcode:

function NetMsgSend(const ServerName, MsgName, FromName, Msg: WideString): Integer;
  begin
    ...
  end ;

function WC(const Name: WideString): PWideChar;
  begin
    ...
  end ;

oder kann man mit dem Gebilde einer Funktion (Codestück) 2 Aufrufmöglichkeiten verpassen?

Gruss
glunzl