No se si funcionará esto a través del puerto paralelo, pero bueno...
Código:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Interval := 10;
Application.ProcessMessages;
//Enviamos el conterido del Edit al cliente
Try ServerSocket1.Socket.SendText (Edit1.Text)
Except
end;
end;