{
Send Data and CRLF to pipe with error checking.
}
procedure Pipe_Writeln(pipe:Integer; Data:String);
var Leng,Sent:Integer;
begin
 Leng:=Length(Data);
 if Leng>0 then begin
  Sent:=pipe_send(pipe,Data+CRLF);
  if Sent<Leng+2 then Trouble('Pipe send error!');
 end;
end;
